Ignore:
Timestamp:
2017-09-18T14:58:22+02:00 (3 years ago)
Author:
cetlod
Message:

v3.6 stable: bugfixes to solve problem particle in PISCES, see ticket #1940

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r7607 r8532  
    8787   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   xfracal    !: ?? 
    8888   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   nitrfac    !: ?? 
     89   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   nitrfac2   !: ?? 
    8990   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   xlimbac    !: ?? 
    9091   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   xlimbacl   !: ?? 
     
    147148      ALLOCATE( xfracal (jpi,jpj,jpk), nitrfac(jpi,jpj,jpk),       & 
    148149         &      xlimbac (jpi,jpj,jpk), xdiss  (jpi,jpj,jpk),       &  
    149          &      xlimbacl(jpi,jpj,jpk), prodcal(jpi,jpj,jpk),     STAT=ierr(3) ) 
     150         &      xlimbacl(jpi,jpj,jpk), prodcal(jpi,jpj,jpk),       & 
     151         &      nitrfac2(jpi,jpj,jpk),                           STAT=ierr(3) ) 
    150152 
    151153      !* Variable for chemistry of the CO2 cycle 
Note: See TracChangeset for help on using the changeset viewer.