Changeset 3827
- Timestamp:
- 2013-03-06T10:01:26+01:00 (11 years ago)
- Location:
- branches/2012/dev_MERGE_2012/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r3687 r3827 164 164 IF( kt /= nit000 .AND. ( sf_dyn(jf_tem)%nrec_a(2) - nrecprev_tem ) /= 0 ) iswap_tem = 1 165 165 IF( ( isecsbc > sf_dyn(jf_tem)%nrec_b(2) .AND. iswap_tem == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 166 write(numout,*) 167 write(numout,*) ' Compute new slopes at kt = ', kt 166 IF(lwp) WRITE(numout,*) ' Compute new slopes at kt = ', kt 168 167 IF( sf_dyn(jf_tem)%ln_tint ) THEN ! time interpolation of data 169 168 IF( kt /= nit000 ) THEN … … 214 213 IF( kt /= nit000 .AND. ( sf_dyn(jf_uwd)%nrec_a(2) - nrecprev_uwd ) /= 0 ) iswap_uwd = 1 215 214 IF( ( isecsbc > sf_dyn(jf_uwd)%nrec_b(2) .AND. iswap_uwd == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 216 write(numout,*) 217 write(numout,*) ' Compute new vertical velocity at kt = ', kt 218 write(numout,*) 215 IF(lwp) WRITE(numout,*) ' Compute new vertical velocity at kt = ', kt 216 IF(lwp) WRITE(numout,*) 219 217 IF( sf_dyn(jf_uwd)%ln_tint ) THEN ! time interpolation of data 220 218 IF( kt /= nit000 ) THEN -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r3769 r3827 80 80 CALL nemo_init ! Initializations 81 81 82 IF( lk_mpp ) CALL mpp_max( nstop )83 84 82 ! check that all process are still there... If some process have an error, 85 83 ! they will never enter in step and other processes will wait until the end of the cpu time! … … 90 88 ! !-----------------------! 91 89 istp = nit000 92 !90 ! 93 91 CALL iom_init ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 92 ! 94 93 DO WHILE ( istp <= nitend .AND. nstop == 0 ) ! time stepping 95 94 ! … … 121 120 ! 122 121 # if defined key_iomput 123 122 CALL xios_finalize ! end mpp communications 124 123 # else 125 124 IF( lk_mpp ) CALL mppstop ! end mpp communications -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r3294 r3827 85 85 ! 86 86 ntra = MAX( 1, nb_trcdta ) ! To avoid compilation error with bounds checking 87 WRITE(numout,*) ' ' 88 WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra 89 WRITE(numout,*) ' ' 87 IF(lwp) THEN 88 WRITE(numout,*) ' ' 89 WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra 90 WRITE(numout,*) ' ' 91 ENDIF 90 92 ! ! allocate the arrays (if necessary) 91 93 !
Note: See TracChangeset
for help on using the changeset viewer.