Ignore:
Timestamp:
2018-12-19T20:46:30+01:00 (23 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10418, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/sms_pisces.F90

    r10377 r10419  
    4747   REAL(wp) ::   xkmort            !: ??? 
    4848   REAL(wp) ::   ferat3            !: ??? 
    49    REAL(wp) ::   wfep              !: ??? 
    5049   REAL(wp) ::   ldocp             !: ??? 
    5150   REAL(wp) ::   ldocz             !: ??? 
     
    9089   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   wsbio3   !: POC sinking speed  
    9190   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   wsbio4   !: GOC sinking speed 
    92    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   wsfep 
    93  
    94  
    9591 
    9692   !!*  SMS for the organic matter 
     
    175171         !  
    176172         IF( ln_ligand ) THEN 
    177            ALLOCATE( plig(jpi,jpj,jpk)  , wsfep(jpi,jpj,jpk)  ,   STAT=ierr(8) ) 
     173           ALLOCATE( plig(jpi,jpj,jpk)  ,                         STAT=ierr(8) ) 
    178174         ENDIF 
    179          ! 
    180175      ENDIF 
    181176      ! 
Note: See TracChangeset for help on using the changeset viewer.