Changeset 4162 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2013-11-07T11:19:49+01:00 (11 years ago)
- Location:
- branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r4148 r4162 82 82 IF( nn_timing == 1 ) CALL timing_start('p4z_sed') 83 83 ! 84 IF( kt == nit 000 .AND. jnt == 1 ) THEN84 IF( kt == nittrc000 .AND. jnt == 1 ) THEN 85 85 ryyss = nyear_len(1) * rday ! number of seconds per year and per month 86 86 rmtss = ryyss / raamo -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r4153 r4162 291 291 END SUBROUTINE p4z_ph_ini 292 292 293 294 293 SUBROUTINE p4z_rst( kt, cdrw ) 295 294 !!--------------------------------------------------------------------- … … 320 319 ELSE 321 320 ! hi(:,:,:) = 1.e-9 322 CALL p4z_ph_ini321 CALL p4z_ph_ini 323 322 ENDIF 324 323 CALL iom_get( numrtr, jpdom_autoglo, 'Silicalim', xksi(:,:) ) -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r4152 r4162 160 160 xksi(:,:) = 2.e-6 161 161 xksimax(:,:) = xksi(:,:) 162 !163 162 END IF 164 163
Note: See TracChangeset
for help on using the changeset viewer.