Changeset 12859 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/IOM
- Timestamp:
- 2020-05-03T11:33:32+02:00 (4 years ago)
- Location:
- NEMO/releases/r4.0/r4.0-HEAD/src/OCE/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/IOM/in_out_manager.F90
r11536 r12859 159 159 INTEGER :: no_print = 0 !: optional argument of fld_fill (if present, suppress some control print) 160 160 INTEGER :: nstop = 0 !: error flag (=number of reason for a premature stop run) 161 !$AGRIF_DO_NOT_TREAT 162 INTEGER :: ngrdstop = -1 !: grid number having nstop > 1 163 !$AGRIF_END_DO_NOT_TREAT 161 164 INTEGER :: nwarn = 0 !: warning flag (=number of warning found during the run) 162 165 CHARACTER(lc) :: ctmp1, ctmp2, ctmp3 !: temporary characters 1 to 3 -
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/IOM/iom.F90
r12598 r12859 2460 2460 #else 2461 2461 IF( .FALSE. ) WRITE(numout,*) cdname, pmiss_val ! useless test to avoid compilation warnings 2462 IF( .FALSE. ) pmiss_val = 0._wp ! useless assignment to avoid compilation warnings 2462 2463 #endif 2463 2464 END SUBROUTINE iom_miss_val
Note: See TracChangeset
for help on using the changeset viewer.