Changeset 10066


Ignore:
Timestamp:
2018-08-23T19:09:43+02:00 (2 years ago)
Author:
dford
Message:

Allow compilation with key_top but not key_medusa.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_v3/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r9262 r10066  
    3636   USE sbc_oce 
    3737   USE trcice          ! tracers in sea ice 
     38# if defined key_medusa 
    3839   USE sms_medusa      ! MEDUSA   initialisation 
     40# endif 
    3941   IMPLICIT NONE 
    4042   PRIVATE 
     
    107109      !                                                              ! total volume of the ocean  
    108110      areatot = glob_sum( cvol(:,:,:) ) 
     111# if defined key_medusa && defined key_roam 
    109112      carea(:,:) = e1e2t(:,:) * tmask(:,:,1)  
     113# endif 
    110114 
    111115      IF( lk_pisces  )       CALL trc_ini_pisces       ! PISCES  bio-model 
Note: See TracChangeset for help on using the changeset viewer.