New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9559 for branches/2017/dev_merge_2017/NEMOGCM – NEMO

Ignore:
Timestamp:
2018-05-07T12:47:23+02:00 (6 years ago)
Author:
cetlod
Message:

Minor corrections to compute PISCES chemical constant at every time-step rather than every day

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  
    7171        ALLOCATE( xnegtr(jpi,jpj,jpk) ) 
    7272        ! 
    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 
    7778        ENDIF 
    7879        ! 
    … …  
    100101      ENDIF 
    101102      ! 
    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      ! 
    115106      IF( ll_sbc ) CALL p4z_sbc( kt )   ! external sources of nutrients  
    116107 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r9124 r9559  
    2727   !!*  Time variables 
    2828   INTEGER  ::   nrdttrc           !: ??? 
    29    INTEGER  ::   ndayflxtr         !: ??? 
    3029   REAL(wp) ::   rfact , rfactr    !: ??? 
    3130   REAL(wp) ::   rfact2, rfact2r   !: ??? 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r9169 r9559  
    269269        & CALL p4z_flx_init      !  gas exchange  
    270270 
    271       ndayflxtr = 0 
    272  
    273271      IF(lwp) WRITE(numout,*)  
    274272      IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of PISCES tracers done' 
Note: See TracChangeset for help on using the changeset viewer.