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 15316 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/trc_oce.F90 – NEMO

Ignore:
Timestamp:
2021-10-01T14:13:23+02:00 (3 years ago)
Author:
hadjt
Message:

TRA/trasbc.F90 OCE/trc_oce.F90
Additional files required for tradwl.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/trc_oce.F90

    r14075 r15316  
    3131   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3     !: light absortion coefficient 
    3232   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:)   ::   oce_co2   !: ocean carbon flux 
    33  
     33   ! JT 
     34   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:)   ::   rlambda2      !: Lambda2 for downwell version of Short wave Radiation 
     35   REAL(wp), PUBLIC                                      ::   rlambda       !: Lambda  for downwell version of Short wave Radiation 
     36   ! JT 
    3437#if defined key_top  
    3538   !!---------------------------------------------------------------------- 
     
    5457      !!                  ***  trc_oce_alloc  *** 
    5558      !!---------------------------------------------------------------------- 
     59      ! JT 
     60      INTEGER ::   ierr(1)        ! Local variables 
     61      !!---------------------------------------------------------------------- 
     62      ierr(:) = 0 
     63      ! JT 
    5664      ALLOCATE( etot3(jpi,jpj,jpk), oce_co2(jpi,jpj), STAT=trc_oce_alloc ) 
     65      ! JT 
     66      ALLOCATE( rlambda2(jpi,jpj),   STAT=ierr(1) ) 
     67      ! JT 
    5768      IF( trc_oce_alloc /= 0 )   CALL ctl_warn('trc_oce_alloc: failed to allocate etot3 array') 
     69      ! JT 
     70      IF( trc_oce_alloc /= 0 )   CALL ctl_warn('trc_oce_alloc: failed to allocate etot3, facvol or rlambda2 array') 
     71      ! JT 
     72 
    5873      ! 
    5974   END FUNCTION trc_oce_alloc 
Note: See TracChangeset for help on using the changeset viewer.