- Timestamp:
- 2020-07-04T12:40:46+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/LBC/lib_mpp.F90
r13014 r13250 1190 1190 ! 1191 1191 CHARACTER(len=80) :: clfile 1192 CHARACTER(LEN=10) :: clfmt ! writing format 1192 1193 INTEGER :: iost 1194 INTEGER :: idg ! number of digits 1193 1195 !!---------------------------------------------------------------------- 1194 1196 ! … … 1197 1199 clfile = TRIM(cdfile) 1198 1200 IF( PRESENT( karea ) ) THEN 1199 IF( karea > 1 ) WRITE(clfile, "(a,'_',i4.4)") TRIM(clfile), karea-1 1201 IF( karea > 1 ) THEN 1202 ! Warning: jpnij is maybe not already defined when calling ctl_opn -> use mppsize instead of jpnij 1203 idg = MAX( INT(LOG10(REAL(MAX(1,mppsize-1),wp))) + 1, 4 ) ! how many digits to we need to write? min=4, max=9 1204 WRITE(clfmt, "('(a,a,i', i1, '.', i1, ')')") idg, idg ! '(a,a,ix.x)' 1205 WRITE(clfile, clfmt) TRIM(clfile), '_', karea-1 1206 ENDIF 1200 1207 ENDIF 1201 1208 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.