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 – NEMO

Changeset 15316


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

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

Location:
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
Files:
2 edited

Legend:

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

    r14075 r15316  
    2626   USE traqsr         ! solar radiation penetration 
    2727   USE trd_oce        ! trends: ocean variables 
    28    USE trdtra         ! trends manager: tracers  
     28   USE trdtra         ! trends manager: tracers 
     29   !JT 
     30   USE tradwl          ! solar radiation penetration (downwell method) 
     31   !JT 
    2932#if defined key_asminc    
    3033   USE asminc         ! Assimilation increment 
     
    9598      ! 
    9699!!gm  This should be moved into sbcmod.F90 module ? (especially now that ln_traqsr is read in namsbc namelist) 
    97       IF( .NOT.ln_traqsr ) THEN     ! no solar radiation penetration 
     100      !JT 
     101      IF( .NOT.ln_traqsr .and. .NOT.ln_tradwl ) THEN     ! no solar radiation penetration 
     102      !JT 
    98103         qns(:,:) = qns(:,:) + qsr(:,:)      ! total heat flux in qns 
    99104         qsr(:,:) = 0._wp                     ! qsr set to zero 
  • 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.