ROMS
Loading...
Searching...
No Matches
get_wetdry.F
Go to the documentation of this file.
1#include "cppdefs.h"
2 MODULE get_wetdry_mod
3#ifdef WET_DRY
4!
5!git $Id$
6!================================================== Hernan G. Arango ===
7! Copyright (c) 2002-2025 The ROMS Group !
8! Licensed under a MIT/X style license !
9! See License_ROMS.md !
10!=======================================================================
11! !
12! If restart, this module reads wetting and drying masks from restart !
13! file using either the standard NetCDF library or the Parallel-IO !
14! (PIO) library. !
15! !
16!=======================================================================
17!
18 USE mod_param
19 USE mod_parallel
20 USE mod_grid
21 USE mod_iounits
22 USE mod_ncparam
23 USE mod_scalars
24!
25 USE exchange_2d_mod
26# ifdef DISTRIBUTE
27 USE mp_exchange_mod, ONLY : mp_exchange2d
28# endif
29 USE nf_fread2d_mod, ONLY : nf_fread2d
30 USE strings_mod, ONLY : find_string
31 USE strings_mod, ONLY : founderror
32!
33 implicit none
34!
35 PUBLIC :: get_wetdry
36 PRIVATE :: get_wetdry_nf90
37# if defined PIO_LIB && defined DISTRIBUTE
38 PRIVATE :: get_wetdry_pio
39# endif
40!
41 CONTAINS
42!
43!***********************************************************************
44 SUBROUTINE get_wetdry (ng, tile, model, IniRec)
45!***********************************************************************
46!
47! Imported variable declarations.
48!
49 integer, intent(in) :: ng, tile, model, inirec
50!
51! Local variable declarations.
52!
53 integer :: lbi, ubi, lbj, ubj
54!
55 character (len=*), parameter :: myfile = &
56 & __FILE__
57!
58!-----------------------------------------------------------------------
59! Read in wetting and drying mask according to IO type.
60!-----------------------------------------------------------------------
61!
62 lbi=bounds(ng)%LBi(tile)
63 ubi=bounds(ng)%UBi(tile)
64 lbj=bounds(ng)%LBj(tile)
65 ubj=bounds(ng)%UBj(tile)
66!
67 SELECT CASE (ini(ng)%IOtype)
68 CASE (io_nf90)
69 CALL get_wetdry_nf90 (ng, tile, model, inirec, &
70 & lbi, ubi, lbj, ubj)
71
72# if defined PIO_LIB && defined DISTRIBUTE
73 CASE (io_pio)
74 CALL get_wetdry_pio (ng, tile, model, inirec, &
75 & lbi, ubi, lbj, ubj)
76# endif
77 CASE DEFAULT
78 IF (master) WRITE (stdout,10) ini(ng)%IOtype
79 exit_flag=2
80 END SELECT
81 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
82!
83 10 FORMAT (' GET_WETDRY - Illegal input file type, io_type = ',i0, &
84 & /,14x,'Check KeyWord ''INP_LIB'' in ''roms.in''.')
85!
86 RETURN
87 END SUBROUTINE get_wetdry
88!
89!***********************************************************************
90 SUBROUTINE get_wetdry_nf90 (ng, tile, model, IniRec, &
91 & LBi, UBi, LBj, UBj)
92!***********************************************************************
93!
94 USE mod_netcdf
95!
96! Imported variable declarations.
97!
98 integer, intent(in) :: ng, tile, model, inirec
99 integer, intent(in) :: lbi, ubi, lbj, ubj
100!
101! Local variable declarations.
102!
103 integer :: gtype, i, status, vindex
104 integer :: vsize(4)
105!
106 real(dp), parameter :: fscl = 1.0_r8
107
108 real(r8) :: fmax, fmin
109!
110 character (len=256) :: ncname
111
112 character (len=*), parameter :: myfile = &
113 & __FILE__//", get_wetdry_nf90"
114!
115 sourcefile=myfile
116!
117!-----------------------------------------------------------------------
118! Inquire about the contents of restart NetCDF file: Inquire about
119! the dimensions and variables. Check for consistency.
120!-----------------------------------------------------------------------
121!
122 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
123 ncname=ini(ng)%name
124!
125! Open restart (initial) NetCDF for read/write.
126!
127 IF (ini(ng)%ncid.eq.-1) THEN
128 CALL netcdf_open (ng, model, ncname, 1, ini(ng)%ncid)
129 IF (founderror(exit_flag, noerror, __line__, myfile)) THEN
130 WRITE (stdout,10) trim(ncname)
131 RETURN
132 END IF
133 END IF
134!
135! Check grid file dimensions for consitency
136!
137 CALL netcdf_check_dim (ng, model, ncname, &
138 & ncid = ini(ng)%ncid)
139 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
140!
141! Inquire about the variables.
142!
143 CALL netcdf_inq_var (ng, model, ncname, &
144 & ncid = ini(ng)%ncid)
145 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
146!
147!-----------------------------------------------------------------------
148! Check if required variables are available.
149!-----------------------------------------------------------------------
150!
151 IF (.not.find_string(var_name,n_var,trim(vname(1,idpwet)), &
152 & vindex)) THEN
153 IF (master) WRITE (stdout,20) trim(vname(1,idpwet)), &
154 & trim(ncname)
155 exit_flag=2
156 RETURN
157 END IF
158 ini(ng)%Vid(idpwet)=vindex
159!
160 IF (.not.find_string(var_name,n_var,trim(vname(1,idrwet)), &
161 & vindex)) THEN
162 IF (master) WRITE (stdout,20) trim(vname(1,idrwet)), &
163 & trim(ncname)
164 exit_flag=2
165 RETURN
166 END IF
167 ini(ng)%Vid(idrwet)=vindex
168!
169 IF (.not.find_string(var_name,n_var,trim(vname(1,iduwet)), &
170 & vindex)) THEN
171 IF (master) WRITE (stdout,20) trim(vname(1,iduwet)), &
172 & trim(ncname)
173 exit_flag=2
174 RETURN
175 END IF
176 ini(ng)%Vid(iduwet)=vindex
177!
178 IF (.not.find_string(var_name,n_var,trim(vname(1,idvwet)), &
179 & vindex)) THEN
180 IF (master) WRITE (stdout,20) trim(vname(1,idvwet)), &
181 & trim(ncname)
182 exit_flag=2
183 RETURN
184 END IF
185 ini(ng)%Vid(idvwet)=vindex
186!
187!-----------------------------------------------------------------------
188! Read in wet/dry mask from rstart file.
189!-----------------------------------------------------------------------
190!
191! Set Vsize to zero to deativate interpolation of input data to model
192! grid in "nf_fread2d".
193!
194 DO i=1,4
195 vsize(i)=0
196 END DO
197!
198! Read in wet/dry mask at PSI-points.
199!
200 gtype=p2dvar
201 status=nf_fread2d(ng, model, ncname, ini(ng)%ncid, &
202 & vname(1,idpwet), ini(ng)%Vid(idpwet), &
203 & inirec, gtype, vsize, &
204 & lbi, ubi, lbj, ubj, &
205 & fscl, fmin, fmax, &
206 & grid(ng) % pmask, &
207 & grid(ng) % pmask_wet)
208 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
209 IF (master) WRITE (stdout,30) trim(vname(1,idpwet)), &
210 & trim(ncname)
211 exit_flag=2
212 ioerror=status
213 RETURN
214 ELSE
215 IF (master) THEN
216 WRITE (stdout,40) trim(vname(2,idpwet)), ng, trim(ncname), &
217 & fmin, fmax
218 END IF
219 END IF
220!
221! Read in wet/dry mask at RHO-points.
222!
223 gtype=r2dvar
224 status=nf_fread2d(ng, model, ncname, ini(ng)%ncid, &
225 & vname(1,idrwet), ini(ng)%Vid(idrwet), &
226 & inirec, gtype, vsize, &
227 & lbi, ubi, lbj, ubj, &
228 & fscl, fmin, fmax, &
229 & grid(ng) % rmask, &
230 & grid(ng) % rmask_wet)
231 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
232 IF (master) WRITE (stdout,30) trim(vname(1,idrwet)), &
233 & trim(ncname)
234 exit_flag=2
235 ioerror=status
236 RETURN
237 ELSE
238 IF (master) THEN
239 WRITE (stdout,40) trim(vname(2,idrwet)), ng, trim(ncname), &
240 & fmin, fmax
241 END IF
242 END IF
243!
244! Read in wet/dry mask at U-points.
245!
246 gtype=u2dvar
247 status=nf_fread2d(ng, model, ncname, ini(ng)%ncid, &
248 & vname(1,iduwet), ini(ng)%Vid(iduwet), &
249 & inirec, gtype, vsize, &
250 & lbi, ubi, lbj, ubj, &
251 & fscl, fmin, fmax, &
252 & grid(ng) % umask, &
253 & grid(ng) % umask_wet)
254 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
255 IF (master) WRITE (stdout,30) trim(vname(1,iduwet)), &
256 & trim(ncname)
257 exit_flag=2
258 ioerror=status
259 RETURN
260 ELSE
261 IF (master) THEN
262 WRITE (stdout,40) trim(vname(2,iduwet)), ng, trim(ncname), &
263 & fmin, fmax
264 END IF
265 END IF
266!
267! Read in wet/dry mask at V-points.
268!
269 gtype=v2dvar
270 status=nf_fread2d(ng, model, ncname, ini(ng)%ncid, &
271 & vname(1,idvwet), ini(ng)%Vid(idvwet), &
272 & inirec, gtype, vsize, &
273 & lbi, ubi, lbj, ubj, &
274 & fscl, fmin, fmax, &
275 & grid(ng) % vmask, &
276 & grid(ng) % vmask_wet)
277 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
278 IF (master) WRITE (stdout,30) trim(vname(1,idvwet)), &
279 & trim(ncname)
280 exit_flag=2
281 ioerror=status
282 RETURN
283 ELSE
284 IF (master) THEN
285 WRITE (stdout,40) trim(vname(2,idvwet)), ng, trim(ncname), &
286 & fmin, fmax
287 END IF
288 END IF
289!
290! Exchange boundary data.
291!
292 IF (ewperiodic(ng).or.nsperiodic(ng)) THEN
293 CALL exchange_p2d_tile (ng, tile, &
294 & lbi, ubi, lbj, ubj, &
295 & grid(ng) % pmask_wet)
296 CALL exchange_r2d_tile (ng, tile, &
297 & lbi, ubi, lbj, ubj, &
298 & grid(ng) % rmask_wet)
299 CALL exchange_u2d_tile (ng, tile, &
300 & lbi, ubi, lbj, ubj, &
301 & grid(ng) % umask_wet)
302 CALL exchange_v2d_tile (ng, tile, &
303 & lbi, ubi, lbj, ubj, &
304 & grid(ng) % vmask_wet)
305 END IF
306
307# ifdef DISTRIBUTE
308!
309 CALL mp_exchange2d (ng, tile, model, 4, &
310 & lbi, ubi, lbj, ubj, &
311 & nghostpoints, &
312 & ewperiodic(ng), nsperiodic(ng), &
313 & grid(ng) % pmask_wet, &
314 & grid(ng) % rmask_wet, &
315 & grid(ng) % umask_wet, &
316 & grid(ng) % vmask_wet)
317# endif
318!
319 10 FORMAT (/,' GET_WETDRY_NF90 - unable to open grid NetCDF', &
320 & ' file: ',a)
321 20 FORMAT (/,' GET_WETDRY_NF90 - unable to find grid variable: ',a, &
322 & /,19x,'in NetCDF file: ',a)
323 30 FORMAT (/,' GET_WETDRY_NF90 - error while reading variable: ',a, &
324 & /,19x,'in NetCDF file: ',a)
325 40 FORMAT (2x,'GET_WETDRY_NF90 - ',a,/,23x, &
326 & '(Grid = ',i2.2,', File: ',a,')',/,23x, &
327 & '(Min = ', 1p,e15.8,0p,' Max = ',1p,e15.8,0p,')')
328!
329 RETURN
330 END SUBROUTINE get_wetdry_nf90
331
332# if defined PIO_LIB && defined DISTRIBUTE
333!
334!***********************************************************************
335 SUBROUTINE get_wetdry_pio (ng, tile, model, IniRec, &
336 & LBi, UBi, LBj, UBj)
337!***********************************************************************
338!
339 USE mod_pio_netcdf
340!
341! Imported variable declarations.
342!
343 integer, intent(in) :: ng, tile, model, inirec
344 integer, intent(in) :: lbi, ubi, lbj, ubj
345!
346! Local variable declarations.
347!
348 integer :: i, status
349 integer :: index_pmask, index_rmask, index_umask, index_vmask
350 integer :: vsize(4)
351!
352 real(dp), parameter :: fscl = 1.0_r8
353
354 real(r8) :: fmax, fmin
355!
356 character (len=256) :: ncname
357
358 character (len=*), parameter :: myfile = &
359 & __FILE__//", get_wetdry_pio"
360!
361 TYPE (io_desc_t), pointer :: iodesc
362 TYPE (my_vardesc), pointer :: piovar
363!
364 sourcefile=myfile
365!
366!-----------------------------------------------------------------------
367! Inquire about the contents of restart NetCDF file: Inquire about
368! the dimensions and variables. Check for consistency.
369!-----------------------------------------------------------------------
370!
371 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
372 ncname=ini(ng)%name
373!
374! Open restart (initial) NetCDF for read/write.
375!
376 IF (ini(ng)%pioFile%fh.eq.-1) THEN
377 CALL pio_netcdf_open (ng, model, ncname, 1, ini(ng)%pioFile)
378 IF (founderror(exit_flag, noerror, __line__, myfile)) THEN
379 WRITE (stdout,10) trim(ncname)
380 RETURN
381 END IF
382 END IF
383!
384! Check grid file dimensions for consitency
385!
386 CALL pio_netcdf_check_dim (ng, model, ncname, &
387 & piofile = ini(ng)%pioFile)
388 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
389!
390! Inquire about the variables.
391!
392 CALL netcdf_inq_var (ng, model, ncname, &
393 & piofile = ini(ng)%pioFile)
394 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
395!
396!-----------------------------------------------------------------------
397! Check if required variables are available.
398!-----------------------------------------------------------------------
399!
400 IF (.not.find_string(var_name,n_var,trim(vname(1,idpwet)), &
401 & index_pmask)) THEN
402 IF (master) WRITE (stdout,20) trim(vname(1,idpwet)), &
403 & trim(ncname)
404 exit_flag=2
405 RETURN
406 END IF
407!
408 IF (.not.find_string(var_name,n_var,trim(vname(1,idrwet)), &
409 & index_rmask)) THEN
410 IF (master) WRITE (stdout,20) trim(vname(1,idrwet)), &
411 & trim(ncname)
412 exit_flag=2
413 RETURN
414 END IF
415!
416 IF (.not.find_string(var_name,n_var,trim(vname(1,iduwet)), &
417 & index_umask)) THEN
418 IF (master) WRITE (stdout,20) trim(vname(1,iduwet)), &
419 & trim(ncname)
420 exit_flag=2
421 RETURN
422 END IF
423!
424 IF (.not.find_string(var_name,n_var,trim(vname(1,idvwet)), &
425 & index_vmask)) THEN
426 IF (master) WRITE (stdout,20) trim(vname(1,idvwet)), &
427 & trim(ncname)
428 exit_flag=2
429 RETURN
430 END IF
431!
432!-----------------------------------------------------------------------
433! Read in wet/dry mask from rstart file.
434!-----------------------------------------------------------------------
435!
436! Set Vsize to zero to deativate interpolation of input data to model
437! grid in "nf_fread2d".
438!
439 DO i=1,4
440 vsize(i)=0
441 END DO
442!
443! Read in wet/dry mask at PSI-points.
444!
445 piovar%vd => var_desc(index_pmask)
446 IF (kind(grid(ng)%pmask_wet).eq.8) THEN
447 piovar%dkind=pio_double
448 iodesc => iodesc_dp_p2dvar(ng)
449 ELSE
450 piovar%dkind=pio_real
451 iodesc => iodesc_sp_p2dvar(ng)
452 END IF
453 piovar%gtype=p2dvar
454!
455 status=nf_fread2d(ng, model, ncname, ini(ng)%pioFile, &
456 & vname(1,idpwet), piovar, &
457 & inirec, iodesc, vsize, &
458 & lbi, ubi, lbj, ubj, &
459 & fscl, fmin, fmax, &
460 & grid(ng) % pmask, &
461 & grid(ng) % pmask_wet)
462 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
463 IF (master) WRITE (stdout,30) trim(vname(1,idpwet)), &
464 & trim(ncname)
465 exit_flag=2
466 ioerror=status
467 RETURN
468 ELSE
469 IF (master) THEN
470 WRITE (stdout,40) trim(vname(2,idpwet)), ng, trim(ncname), &
471 & fmin, fmax
472 END IF
473 END IF
474!
475! Read in wet/dry mask at RHO-points.
476!
477 piovar%vd => var_desc(index_rmask)
478 IF (kind(grid(ng)%rmask_wet).eq.8) THEN
479 piovar%dkind=pio_double
480 iodesc => iodesc_dp_r2dvar(ng)
481 ELSE
482 piovar%dkind=pio_real
483 iodesc => iodesc_sp_r2dvar(ng)
484 END IF
485 piovar%gtype=r2dvar
486!
487 status=nf_fread2d(ng, model, ncname, ini(ng)%pioFile, &
488 & vname(1,idrwet), piovar, &
489 & inirec, iodesc, vsize, &
490 & lbi, ubi, lbj, ubj, &
491 & fscl, fmin, fmax, &
492 & grid(ng) % rmask, &
493 & grid(ng) % rmask_wet)
494 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
495 IF (master) WRITE (stdout,30) trim(vname(1,idrwet)), &
496 & trim(ncname)
497 exit_flag=2
498 ioerror=status
499 RETURN
500 ELSE
501 IF (master) THEN
502 WRITE (stdout,40) trim(vname(2,idrwet)), ng, trim(ncname), &
503 & fmin, fmax
504 END IF
505 END IF
506!
507! Read in wet/dry mask at U-points.
508!
509 piovar%vd => var_desc(index_umask)
510 IF (kind(grid(ng)%umask_wet).eq.8) THEN
511 piovar%dkind=pio_double
512 iodesc => iodesc_dp_u2dvar(ng)
513 ELSE
514 piovar%dkind=pio_real
515 iodesc => iodesc_sp_u2dvar(ng)
516 END IF
517 piovar%gtype=u2dvar
518!
519 status=nf_fread2d(ng, model, ncname, ini(ng)%pioFile, &
520 & vname(1,iduwet), piovar, &
521 & inirec, iodesc, vsize, &
522 & lbi, ubi, lbj, ubj, &
523 & fscl, fmin, fmax, &
524 & grid(ng) % umask, &
525 & grid(ng) % umask_wet)
526 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
527 IF (master) WRITE (stdout,30) trim(vname(1,iduwet)), &
528 & trim(ncname)
529 exit_flag=2
530 ioerror=status
531 RETURN
532 ELSE
533 IF (master) THEN
534 WRITE (stdout,40) trim(vname(2,iduwet)), ng, trim(ncname), &
535 & fmin, fmax
536 END IF
537 END IF
538!
539! Read in wet/dry mask at V-points.
540!
541 piovar%vd => var_desc(index_vmask)
542 IF (kind(grid(ng)%vmask_wet).eq.8) THEN
543 piovar%dkind=pio_double
544 iodesc => iodesc_dp_v2dvar(ng)
545 ELSE
546 piovar%dkind=pio_real
547 iodesc => iodesc_sp_v2dvar(ng)
548 END IF
549 piovar%gtype=v2dvar
550!
551 status=nf_fread2d(ng, model, ncname, ini(ng)%pioFile, &
552 & vname(1,idvwet), piovar, &
553 & inirec, iodesc, vsize, &
554 & lbi, ubi, lbj, ubj, &
555 & fscl, fmin, fmax, &
556 & grid(ng) % vmask, &
557 & grid(ng) % vmask_wet)
558 IF (founderror(status, nf90_noerr, __line__, myfile)) THEN
559 IF (master) WRITE (stdout,30) trim(vname(1,idvwet)), &
560 & trim(ncname)
561 exit_flag=2
562 ioerror=status
563 RETURN
564 ELSE
565 IF (master) THEN
566 WRITE (stdout,40) trim(vname(2,idvwet)), ng, trim(ncname), &
567 & fmin, fmax
568 END IF
569 END IF
570!
571! Exchange boundary data.
572!
573 IF (ewperiodic(ng).or.nsperiodic(ng)) THEN
574 CALL exchange_p2d_tile (ng, tile, &
575 & lbi, ubi, lbj, ubj, &
576 & grid(ng) % pmask_wet)
577 CALL exchange_r2d_tile (ng, tile, &
578 & lbi, ubi, lbj, ubj, &
579 & grid(ng) % rmask_wet)
580 CALL exchange_u2d_tile (ng, tile, &
581 & lbi, ubi, lbj, ubj, &
582 & grid(ng) % umask_wet)
583 CALL exchange_v2d_tile (ng, tile, &
584 & lbi, ubi, lbj, ubj, &
585 & grid(ng) % vmask_wet)
586 END IF
587!
588 CALL mp_exchange2d (ng, tile, model, 4, &
589 & lbi, ubi, lbj, ubj, &
590 & nghostpoints, &
591 & ewperiodic(ng), nsperiodic(ng), &
592 & grid(ng) % pmask_wet, &
593 & grid(ng) % rmask_wet, &
594 & grid(ng) % umask_wet, &
595 & grid(ng) % vmask_wet)
596!
597 10 FORMAT (/,' GET_WETDRY_PIO - unable to open grid NetCDF', &
598 & ' file: ',a)
599 20 FORMAT (/,' GET_WETDRY_PIO - unable to find grid variable: ',a, &
600 & /,18x,'in NetCDF file: ',a)
601 30 FORMAT (/,' GET_WETDRY_PIO - error while reading variable: ',a, &
602 & /,18x,'in NetCDF file: ',a)
603 40 FORMAT (2x,'GET_WETDRY_PIO - ',a,/,23x, &
604 & '(Grid = ',i2.2,', File: ',a,')',/,23x, &
605 & '(Min = ', 1p,e15.8,0p,' Max = ',1p,e15.8,0p,')')
606!
607 RETURN
608 END SUBROUTINE get_wetdry_pio
609# endif
610#endif
611 END MODULE get_wetdry_mod
612
nf_fread2d_mod::nf_fread2d
Definition nf_fread2d.F:69
exchange_2d_mod
Definition exchange_2d.F:2
exchange_2d_mod::exchange_r2d_tile
subroutine exchange_r2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
Definition exchange_2d.F:253
exchange_2d_mod::exchange_u2d_tile
subroutine exchange_u2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
Definition exchange_2d.F:440
exchange_2d_mod::exchange_p2d_tile
subroutine exchange_p2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
Definition exchange_2d.F:66
exchange_2d_mod::exchange_v2d_tile
subroutine exchange_v2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
Definition exchange_2d.F:627
get_wetdry_mod
Definition get_wetdry.F:2
get_wetdry_mod::get_wetdry_nf90
subroutine, private get_wetdry_nf90(ng, tile, model, inirec, lbi, ubi, lbj, ubj)
Definition get_wetdry.F:92
get_wetdry_mod::get_wetdry_pio
subroutine, private get_wetdry_pio(ng, tile, model, inirec, lbi, ubi, lbj, ubj)
Definition get_wetdry.F:337
get_wetdry_mod::get_wetdry
subroutine, public get_wetdry(ng, tile, model, inirec)
Definition get_wetdry.F:45
mod_grid
Definition mod_grid.F:2
mod_grid::grid
type(t_grid), dimension(:), allocatable grid
Definition mod_grid.F:365
mod_iounits
Definition mod_iounits.F:2
mod_iounits::ioerror
integer ioerror
Definition mod_iounits.F:313
mod_iounits::ini
type(t_io), dimension(:), allocatable ini
Definition mod_iounits.F:225
mod_iounits::stdout
integer stdout
Definition mod_iounits.F:195
mod_iounits::sourcefile
character(len=256) sourcefile
Definition mod_iounits.F:317
mod_ncparam
Definition mod_ncparam.F:2
mod_ncparam::io_nf90
integer, parameter io_nf90
Definition mod_ncparam.F:95
mod_ncparam::io_pio
integer, parameter io_pio
Definition mod_ncparam.F:96
mod_ncparam::idrwet
integer idrwet
Definition mod_ncparam.F:285
mod_ncparam::iduwet
integer iduwet
Definition mod_ncparam.F:346
mod_ncparam::vname
character(len=maxlen), dimension(6, 0:nv) vname
Definition mod_ncparam.F:591
mod_ncparam::idpwet
integer idpwet
Definition mod_ncparam.F:265
mod_ncparam::idvwet
integer idvwet
Definition mod_ncparam.F:384
mod_netcdf
Definition mod_netcdf.F:2
mod_netcdf::netcdf_check_dim
subroutine, public netcdf_check_dim(ng, model, ncname, ncid)
Definition mod_netcdf.F:538
mod_netcdf::netcdf_open
subroutine, public netcdf_open(ng, model, ncname, omode, ncid)
Definition mod_netcdf.F:9293
mod_netcdf::var_name
character(len=100), dimension(mvars) var_name
Definition mod_netcdf.F:169
mod_netcdf::n_var
integer n_var
Definition mod_netcdf.F:152
mod_netcdf::netcdf_inq_var
subroutine, public netcdf_inq_var(ng, model, ncname, ncid, myvarname, searchvar, varid, nvardim, nvaratt)
Definition mod_netcdf.F:1371
mod_parallel
Definition mod_parallel.F:2
mod_parallel::master
logical master
Definition mod_parallel.F:40
mod_param
Definition mod_param.F:2
mod_param::bounds
type(t_bounds), dimension(:), allocatable bounds
Definition mod_param.F:232
mod_param::nghostpoints
integer nghostpoints
Definition mod_param.F:710
mod_param::u2dvar
integer, parameter u2dvar
Definition mod_param.F:718
mod_param::p2dvar
integer, parameter p2dvar
Definition mod_param.F:716
mod_param::r2dvar
integer, parameter r2dvar
Definition mod_param.F:717
mod_param::v2dvar
integer, parameter v2dvar
Definition mod_param.F:719
mod_pio_netcdf
Definition mod_pio_netcdf.F:2
mod_pio_netcdf::iodesc_sp_u2dvar
type(io_desc_t), dimension(:), pointer iodesc_sp_u2dvar
Definition mod_pio_netcdf.F:195
mod_pio_netcdf::var_desc
type(var_desc_t), dimension(:), pointer var_desc
Definition mod_pio_netcdf.F:437
mod_pio_netcdf::iodesc_sp_r2dvar
type(io_desc_t), dimension(:), pointer iodesc_sp_r2dvar
Definition mod_pio_netcdf.F:194
mod_pio_netcdf::pio_netcdf_open
subroutine, public pio_netcdf_open(ng, model, ncname, omode, piofile)
Definition mod_pio_netcdf.F:9148
mod_pio_netcdf::iodesc_dp_u2dvar
type(io_desc_t), dimension(:), pointer iodesc_dp_u2dvar
Definition mod_pio_netcdf.F:234
mod_pio_netcdf::iodesc_dp_p2dvar
type(io_desc_t), dimension(:), pointer iodesc_dp_p2dvar
Definition mod_pio_netcdf.F:232
mod_pio_netcdf::pio_netcdf_check_dim
subroutine, public pio_netcdf_check_dim(ng, model, ncname, piofile)
Definition mod_pio_netcdf.F:1080
mod_pio_netcdf::iodesc_dp_v2dvar
type(io_desc_t), dimension(:), pointer iodesc_dp_v2dvar
Definition mod_pio_netcdf.F:235
mod_pio_netcdf::iodesc_dp_r2dvar
type(io_desc_t), dimension(:), pointer iodesc_dp_r2dvar
Definition mod_pio_netcdf.F:233
mod_pio_netcdf::iodesc_sp_p2dvar
type(io_desc_t), dimension(:), pointer iodesc_sp_p2dvar
Definition mod_pio_netcdf.F:193
mod_pio_netcdf::iodesc_sp_v2dvar
type(io_desc_t), dimension(:), pointer iodesc_sp_v2dvar
Definition mod_pio_netcdf.F:196
mod_scalars
Definition mod_scalars.F:2
mod_scalars::ewperiodic
logical, dimension(:), allocatable ewperiodic
Definition mod_scalars.F:510
mod_scalars::nsperiodic
logical, dimension(:), allocatable nsperiodic
Definition mod_scalars.F:511
mod_scalars::exit_flag
integer exit_flag
Definition mod_scalars.F:559
mod_scalars::noerror
integer noerror
Definition mod_scalars.F:561
mp_exchange_mod
Definition mp_exchange.F:2
mp_exchange_mod::mp_exchange2d
subroutine mp_exchange2d(ng, tile, model, nvar, lbi, ubi, lbj, ubj, nghost, ew_periodic, ns_periodic, a, b, c, d)
Definition mp_exchange.F:294
nf_fread2d_mod
Definition nf_fread2d.F:2
strings_mod
Definition strings.F:2
strings_mod::find_string
logical function, public find_string(a, asize, string, aindex)
Definition strings.F:417
strings_mod::founderror
logical function, public founderror(flag, noerr, line, routine)
Definition strings.F:52
mod_iounits::my_vardesc
Definition mod_iounits.F:151