Changeset 9559
- Timestamp:
- 2018-05-07T12:47:23+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r9169 r9559 71 71 ALLOCATE( xnegtr(jpi,jpj,jpk) ) 72 72 ! 73 CALL p4z_che ! initialize the chemical constants 74 ! 75 IF( .NOT. ln_rsttr ) THEN ; CALL ahini_for_at(hi) ! set PH at kt=nit000 76 ELSE ; CALL p4z_rst( nittrc000, 'READ' ) !* read or initialize all required fields 73 IF( .NOT. ln_rsttr ) THEN 74 CALL p4z_che ! initialize the chemical constants 75 CALL ahini_for_at(hi) ! set PH at kt=nit000 76 ELSE 77 CALL p4z_rst( nittrc000, 'READ' ) !* read or initialize all required fields 77 78 ENDIF 78 79 ! … … 100 101 ENDIF 101 102 ! 102 IF( ndayflxtr /= nday_year ) THEN ! New days 103 ! 104 ndayflxtr = nday_year 105 106 IF(lwp) write(numout,*) 107 IF(lwp) write(numout,*) ' New chemical constants and various rates for biogeochemistry at new day : ', nday_year 108 IF(lwp) write(numout,*) '~~~~~~' 109 110 CALL p4z_che ! computation of chemical constants 111 CALL p4z_int( kt ) ! computation of various rates for biogeochemistry 112 ! 113 ENDIF 114 103 CALL p4z_che ! computation of chemical constants 104 CALL p4z_int( kt ) ! computation of various rates for biogeochemistry 105 ! 115 106 IF( ll_sbc ) CALL p4z_sbc( kt ) ! external sources of nutrients 116 107 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r9124 r9559 27 27 !!* Time variables 28 28 INTEGER :: nrdttrc !: ??? 29 INTEGER :: ndayflxtr !: ???30 29 REAL(wp) :: rfact , rfactr !: ??? 31 30 REAL(wp) :: rfact2, rfact2r !: ??? -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r9169 r9559 269 269 & CALL p4z_flx_init ! gas exchange 270 270 271 ndayflxtr = 0272 273 271 IF(lwp) WRITE(numout,*) 274 272 IF(lwp) WRITE(numout,*) ' ==>>> Initialization of PISCES tracers done'
Note: See TracChangeset
for help on using the changeset viewer.