Changeset 4309 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2013-11-22T09:18:20+01:00 (10 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r4245 r4309 117 117 END DO 118 118 END DO 119 ikmax = MAX VAL( inml_mle(:,:)) ! max level of the computation119 ikmax = MAX( MAXVAL( inml_mle(:,:), jpkm1 ) ! max level of the computation 120 120 ! 121 121 ! -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4292 r4309 261 261 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 262 262 WRITE( numond, namcfg ) 263 263 264 ! Force values for AGRIF zoom (cf. agrif_user.F90) 264 265 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.