- Timestamp:
- Oct 23, 2018, 11:16:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv-GC/libf/phylmd/limit_read_mod.F90
r3312 r3406 258 258 ENDIF 259 259 ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn) 260 WRITE(abort_message,'(a,2(i 3,a))')'limit.nc records number (',nn,') does no'//&260 WRITE(abort_message,'(a,2(i0,a))')'limit.nc records number (',nn,') does no'//& 261 261 't match year length (',year_len,')' 262 262 IF(nn/=year_len) CALL abort_physic(modname,abort_message,1) … … 288 288 289 289 is_modified = .FALSE. 290 IF (MOD(itime-1, lmt_pas) == 0 .OR. jour_lu /= jour ) THEN ! time to read 290 !ym IF (MOD(itime-1, lmt_pas) == 0 .OR. jour_lu /= jour ) THEN ! time to read 291 ! not REALLY PERIODIC 292 IF (MOD(itime-1, lmt_pas) == 0) THEN ! time to read 291 293 jour_lu = jour 292 294 is_modified = .TRUE. … … 334 336 335 337 !$OMP MASTER ! Only master thread 336 IF (is_mpi_root) THEN ! Only master processus 338 IF (is_mpi_root) THEN ! Only master processus! 337 339 338 340 ierr = NF90_OPEN ('limit.nc', NF90_NOWRITE, nid)
Note: See TracChangeset
for help on using the changeset viewer.