Changeset 15665
- Timestamp:
- 2022-01-19T20:27:47+01:00 (2 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5
- Files:
-
- 12 edited
-
. (modified) (1 prop)
-
src/OCE/SBC/sbcblk.F90 (modified) (3 diffs)
-
src/OCE/SBC/sbccpl.F90 (modified) (11 diffs)
-
src/OCE/TRD/trdtrc.F90 (modified) (2 diffs)
-
src/OCE/stpctl.F90 (modified) (1 diff)
-
src/TOP/par_trc.F90 (modified) (2 diffs)
-
src/TOP/trcice.F90 (modified) (3 diffs)
-
src/TOP/trcini.F90 (modified) (5 diffs)
-
src/TOP/trcnam.F90 (modified) (8 diffs)
-
src/TOP/trcrst.F90 (modified) (4 diffs)
-
src/TOP/trcsms.F90 (modified) (3 diffs)
-
src/TOP/trcwri.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@10134 ext/FCM 7 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 https://code.metoffice.gov.uk/svn/medusa/main/trunk/src/MEDUSA@297 src/TOP/MEDUSA 9 https://code.metoffice.gov.uk/svn/medusa/main/trunk/cfgs/ORCA2_MEDUSA@295 cfgs/ORCA2_MEDUSA 10 https://code.metoffice.gov.uk/svn/medusa/main/trunk/cfgs/SHARED_MEDUSA@294 cfgs/SHARED_MEDUSA 8 11 9 12 # SETTE mapping (inactive)
-
- Property svn:externals
-
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/SBC/sbcblk.F90
r14075 r15665 40 40 USE fldread ! read input fields 41 41 USE sbc_oce ! Surface boundary condition: ocean fields 42 USE sbcapr , ONLY : apr ! sea surface pressure (Pa -- N m-2 ) -- JPALM 42 43 USE cyclone ! Cyclone 10m wind form trac of cyclone centres 43 44 USE sbcdcy ! surface boundary condition: diurnal cycle … … 145 146 !! *** ROUTINE sbc_blk_alloc *** 146 147 !!------------------------------------------------------------------- 147 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 148 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 148 IF( .NOT. ln_apr_dyn ) THEN 149 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 150 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), & 151 & apr(jpi,jpj), STAT=sbc_blk_alloc ) 152 ELSE 153 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 154 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 155 ENDIF 149 156 ! 150 157 CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) … … 335 342 ! ! compute the surface ocean fluxes using bulk formulea 336 343 IF( MOD( kt - 1, nn_fsbc ) == 0 ) CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m ) 344 IF( MOD( kt - 1, nn_fsbc ) == 0 ) apr(:,:) = sf(jp_slp)%fnow(:,:,1) 337 345 338 346 #if defined key_cice -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/SBC/sbccpl.F90
r15663 r15665 38 38 USE cpl_rnf_1d, ONLY: nn_cpl_river, cpl_rnf_1d_init, cpl_rnf_1d_to_2d ! Variables used in 1D river outflow 39 39 USE sbcisf , ONLY : l_isfcpl 40 USE par_trc , ONLY : ln_medusa 40 41 #if defined key_cice 41 42 USE ice_domain_size, only: ncat … … 50 51 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 51 52 USE timing ! timing 53 USE sms_medusa, ONLY: CO2Flux_out_cpl, DMS_out_cpl, chloro_out_cpl, PCO2a_in_cpl, Dust_in_cpl 52 54 53 55 #if defined key_oasis3 … … 126 128 INTEGER, PARAMETER :: jpr_rnf_1d = 60 ! 1D river runoff 127 129 INTEGER, PARAMETER :: jpr_qtr = 61 ! Transmitted solar 128 129 INTEGER, PARAMETER :: jprcv = 61 ! total number of fields received 130 INTEGER, PARAMETER :: jpr_atm_pco2 = 62 ! Incoming atm pCO2 flux 131 INTEGER, PARAMETER :: jpr_atm_dust = 63 ! Incoming atm aggregate dust 132 133 INTEGER, PARAMETER :: jprcv = 63 ! total number of fields received 130 134 131 135 INTEGER, PARAMETER :: jps_fice = 1 ! ice fraction sent to the atmosphere … … 167 171 INTEGER, PARAMETER :: jps_sstfrz = 37 ! sea surface freezing temperature 168 172 INTEGER, PARAMETER :: jps_ttilyr = 38 ! sea ice top layer temp 169 170 INTEGER, PARAMETER :: jpsnd = 38 ! total number of fields sent 173 INTEGER, PARAMETER :: jps_bio_co2 = 39 ! MEDUSA air-sea CO2 flux 174 INTEGER, PARAMETER :: jps_bio_dms = 40 ! MEDUSA DMS surface concentration 175 INTEGER, PARAMETER :: jps_bio_chloro = 41 ! MEDUSA chlorophyll surface concentration 176 177 INTEGER, PARAMETER :: jpsnd = 41 ! total number of fields sent 171 178 172 179 #if ! defined key_oasis3 … … 190 197 & sn_snd_thick1, sn_snd_cond, sn_snd_mpnd , sn_snd_sstfrz, sn_snd_ttilyr 191 198 ! ! Received from the atmosphere 199 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro 192 200 TYPE(FLD_C) :: sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau, sn_rcv_tauw, sn_rcv_dqnsdt, sn_rcv_qsr, & 193 201 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf, sn_rcv_ts_ice 194 202 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2, sn_rcv_mslp, sn_rcv_icb, sn_rcv_isf, & 195 203 sn_rcv_grnm, sn_rcv_antm 204 TYPE(FLD_C) :: sn_rcv_atm_pco2, sn_rcv_atm_dust 196 205 ! Send to waves 197 206 TYPE(FLD_C) :: sn_snd_ifrac, sn_snd_crtw, sn_snd_wlev … … 286 295 & rn_antarctica_total_fw_flux , rn_antarctica_calving_fraction , & 287 296 & rn_iceshelf_fluxes_tolerance 297 298 ! Add MEDUSA related fields to namelist 299 NAMELIST/namsbc_cpl/ sn_snd_bio_co2 , sn_snd_bio_dms, sn_snd_bio_chloro, & 300 & sn_rcv_atm_pco2, sn_rcv_atm_dust 288 301 289 302 !!--------------------------------------------------------------------- … … 354 367 WRITE(numout,*)' - orientation = ', sn_snd_crt%clvor 355 368 WRITE(numout,*)' - mesh = ', sn_snd_crt%clvgrd 369 WRITE(numout,*)' bio co2 flux = ', TRIM(sn_snd_bio_co2%cldes),' (', TRIM(sn_snd_bio_co2%clcat), ')' 370 WRITE(numout,*)' bio dms flux = ', TRIM(sn_snd_bio_dms%cldes),' (', TRIM(sn_snd_bio_dms%clcat), ')' 371 WRITE(numout,*)' bio dms chlorophyll = ', TRIM(sn_snd_bio_chloro%cldes), ' (', TRIM(sn_snd_bio_chloro%clcat), ')' 356 372 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')' 357 373 WRITE(numout,*)' ice effective conductivity = ', TRIM(sn_snd_cond%cldes ), ' (', TRIM(sn_snd_cond%clcat ), ')' … … 361 377 WRITE(numout,*)' mean sea level pressure = ', TRIM(sn_rcv_mslp%cldes ), ' (', TRIM(sn_rcv_mslp%clcat ), ')' 362 378 WRITE(numout,*)' surface current to waves = ', TRIM(sn_snd_crtw%cldes ), ' (', TRIM(sn_snd_crtw%clcat ), ')' 379 WRITE(numout,*)' atm pco2 = ', TRIM(sn_rcv_atm_pco2%cldes),'(', TRIM(sn_rcv_atm_pco2%clcat ), ')' 380 WRITE(numout,*)' atm dust = ', TRIM(sn_rcv_atm_dust%cldes),'(', TRIM(sn_rcv_atm_dust%clcat),')' 363 381 WRITE(numout,*)' - referential = ', sn_snd_crtw%clvref 364 382 WRITE(numout,*)' - orientation = ', sn_snd_crtw%clvor … … 616 634 IF(lwp) WRITE(numout,*) 617 635 ENDIF 636 ! ! --------------------------------------- ! 637 ! ! Incoming CO2 and DUST fluxes for MEDUSA ! 638 ! ! --------------------------------------- ! 639 srcv(jpr_atm_pco2)%clname = 'OATMPCO2' 640 IF (TRIM(sn_rcv_atm_pco2%cldes) == 'medusa') THEN 641 srcv(jpr_atm_pco2)%laction = .TRUE. 642 END IF 643 644 srcv(jpr_atm_dust)%clname = 'OATMDUST' 645 IF (TRIM(sn_rcv_atm_dust%cldes) == 'medusa') THEN 646 srcv(jpr_atm_dust)%laction = .TRUE. 647 END IF 618 648 ! 619 649 ! ! ------------------------- ! … … 973 1003 ssnd(jps_co2)%clname = 'O_CO2FLX' ; IF( TRIM(sn_snd_co2%cldes) == 'coupled' ) ssnd(jps_co2 )%laction = .TRUE. 974 1004 ! 1005 ! ! ------------------------- ! 1006 ! ! MEDUSA output fields ! 1007 ! ! ------------------------- ! 1008 ! Surface dimethyl sulphide from Medusa 1009 ssnd(jps_bio_dms)%clname = 'OBioDMS' 1010 IF( TRIM(sn_snd_bio_dms%cldes) == 'medusa' ) ssnd(jps_bio_dms )%laction = .TRUE. 1011 1012 ! Surface CO2 flux from Medusa 1013 ssnd(jps_bio_co2)%clname = 'OBioCO2' 1014 IF( TRIM(sn_snd_bio_co2%cldes) == 'medusa' ) ssnd(jps_bio_co2 )%laction = .TRUE. 1015 1016 ! Surface chlorophyll from Medusa 1017 ssnd(jps_bio_chloro)%clname = 'OBioChlo' 1018 IF( TRIM(sn_snd_bio_chloro%cldes) == 'medusa' ) ssnd(jps_bio_chloro )%laction = .TRUE. 1019 ! 975 1020 ! ! ------------------------- ! 976 1021 ! ! Sea surface freezing temp ! … … 2717 2762 CALL cpl_snd( jps_co2, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ) , info ) 2718 2763 ENDIF 2764 ! 2765 IF (ln_medusa) THEN 2766 ! ! ---------------------------------------------- ! 2767 ! ! CO2 flux, DMS and chlorophyll from MEDUSA ! 2768 ! ! ---------------------------------------------- ! 2769 IF ( ssnd(jps_bio_co2)%laction ) THEN 2770 CALL cpl_snd( jps_bio_co2, isec, RESHAPE( CO2Flux_out_cpl, (/jpi,jpj,1/) ), info ) 2771 ENDIF 2772 2773 IF ( ssnd(jps_bio_dms)%laction ) THEN 2774 CALL cpl_snd( jps_bio_dms, isec, RESHAPE( DMS_out_cpl, (/jpi,jpj,1/) ), info ) 2775 ENDIF 2776 2777 IF ( ssnd(jps_bio_chloro)%laction ) THEN 2778 CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info ) 2779 ENDIF 2780 ENDIF 2719 2781 ! 2720 2782 ! ! ------------------------- ! -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/TRD/trdtrc.F90
r14075 r15665 1 #if ! defined key_top 1 2 MODULE trdtrc 2 3 !!====================================================================== … … 22 23 !!====================================================================== 23 24 END MODULE trdtrc 25 #endif 26 -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/stpctl.F90
r15661 r15665 32 32 33 33 PUBLIC stp_ctl ! routine called by step.F90 34 PUBLIC wrt_line ! routine called by BGC checks 34 35 35 36 INTEGER :: idrun, idtime, idssh, idu, ids1, ids2, idt1, idt2, idc1, idw1, istatus -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/par_trc.F90
r14075 r15665 11 11 USE par_kind ! kind parameters 12 12 USE par_pisces ! PISCES model parameters 13 USE par_medusa ! MEDUSA model parameters 13 14 USE par_cfc ! CFCs tracers parameters 14 15 USE par_c14 ! C14 tracer parameters … … 31 32 32 33 LOGICAL, PUBLIC :: ln_pisces !: PISCES flag 34 LOGICAL, PUBLIC :: ln_medusa !: MEDUSA flag 33 35 LOGICAL, PUBLIC :: ln_age !: AGE flag 34 36 LOGICAL, PUBLIC :: ln_cfc11 !: CFC11 flag -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcice.F90
r14075 r15665 16 16 USE trcice_cfc ! CFC initialisation 17 17 USE trcice_pisces ! PISCES initialisation 18 USE trcice_medusa ! MEDUSA initialisation 18 19 USE trcice_c14 ! C14 bomb initialisation 19 20 USE trcice_age ! AGE initialisation … … 27 28 !!---------------------------------------------------------------------- 28 29 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 29 !! $Id $30 !! $Id: trcice.F90 11536 2019-09-11 13:54:18Z smasson $ 30 31 !! Software governed by the CeCILL license (see ./LICENSE) 31 32 !!---------------------------------------------------------------------- … … 54 55 IF ( nn_ice_tr == 1 ) THEN 55 56 IF( ln_pisces ) CALL trc_ice_ini_pisces ! PISCES bio-model 57 IF( ln_medusa ) CALL trc_ice_ini_medusa ! MEDUSA bio-model 56 58 IF( ll_cfc ) CALL trc_ice_ini_cfc ! CFC tracers 57 59 IF( ln_c14 ) CALL trc_ice_ini_c14 ! C14 tracer -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcini.F90
r14075 r15665 34 34 !!---------------------------------------------------------------------- 35 35 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 36 !! $Id $36 !! $Id: trcini.F90 12841 2020-05-01 10:52:40Z cetlod $ 37 37 !! Software governed by the CeCILL license (see ./LICENSE) 38 38 !!---------------------------------------------------------------------- … … 52 52 !!--------------------------------------------------------------------- 53 53 ! 54 USE trcini_medusa ! MEDUSA initialisation 55 !!USE trc_ini_medusa_conserv ! MEDUSA initialisation 56 54 57 IF( ln_timing ) CALL timing_start('trc_init') 55 58 ! … … 80 83 ! 81 84 CALL trc_ini_inv ! Inventories 85 ! 86 IF (ln_medusa) CALL trc_ini_medusa_conserv 82 87 ! 83 88 IF( ln_timing ) CALL timing_stop('trc_init') … … 140 145 !!---------------------------------------------------------------------- 141 146 USE trcini_pisces ! PISCES initialisation 147 USE trcini_medusa ! MEDUSA initialisation 142 148 USE trcini_cfc ! CFC initialisation 143 149 USE trcini_c14 ! C14 initialisation … … 160 166 ! 161 167 IF( ln_pisces ) CALL trc_ini_pisces ! PISCES model 168 IF( ln_medusa ) CALL trc_ini_medusa ! MEDUSA model 162 169 IF( ln_my_trc ) CALL trc_ini_my_trc ! MY_TRC model 163 170 IF( ll_cfc ) CALL trc_ini_cfc ! CFC's -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcnam.F90
r14075 r15665 37 37 !!---------------------------------------------------------------------- 38 38 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 39 !! $Id $39 !! $Id: trcnam.F90 11536 2019-09-11 13:54:18Z smasson $ 40 40 !! Software governed by the CeCILL license (see ./LICENSE) 41 41 !!---------------------------------------------------------------------- … … 50 50 !! ** Method : - read passive tracer namelist 51 51 !! - read namelist of each defined SMS model 52 !! ( (PISCES, CFC, MY_TRC )52 !! ( (PISCES, MEDUSA, CFC, MY_TRC ) 53 53 !!--------------------------------------------------------------------- 54 54 INTEGER :: jn ! dummy loop indice … … 147 147 INTEGER :: ios, ierr, icfc ! Local integer 148 148 !! 149 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_m y_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, &149 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_medusa, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 150 150 & sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 151 151 !!--------------------------------------------------------------------- … … 167 167 168 168 ! Control settings 169 IF( ln_pisces .AND. ln_my_trc ) CALL ctl_stop( 'Choose only ONE BGC model - PISCES or MY_TRC' ) 170 IF( .NOT. ln_pisces .AND. .NOT. ln_my_trc ) jp_bgc = 0 169 IF( ( ln_pisces .AND. ln_my_trc ) & 170 & .OR. ( ln_pisces .AND. ln_medusa ) & 171 & .OR. ( ln_medusa .AND. ln_my_trc ) ) CALL ctl_stop( 'Choose only ONE BGC model - PISCES or MEDUSA or MY_TRC' ) 172 ! 173 IF( .NOT. ln_pisces .AND. .NOT. ln_my_trc .AND. .NOT. ln_medusa ) jp_bgc = 0 171 174 ll_cfc = ln_cfc11 .OR. ln_cfc12 .OR. ln_sf6 172 175 ! … … 175 178 jp_my_trc = 0 ; jp_myt0 = 0 ; jp_myt1 = 0 176 179 jp_cfc = 0 ; jp_cfc0 = 0 ; jp_cfc1 = 0 177 jp_age = 0 ; jp_c14 = 0 180 jp_age = 0 ; jp_c14 = 0 ; jp_medusa = 0 178 181 ! 179 182 IF( ln_pisces ) THEN … … 181 184 jp_pcs0 = 1 182 185 jp_pcs1 = jp_pisces 186 ENDIF 187 IF( ln_medusa ) THEN 188 jp_medusa = jp_bgc 189 jp_msa0 = 1 190 jp_msa1 = jp_medusa 183 191 ENDIF 184 192 IF( ln_my_trc ) THEN … … 214 222 WRITE(numout,*) ' Total number of BGC tracers jp_bgc = ', jp_bgc 215 223 WRITE(numout,*) ' Simulating PISCES model ln_pisces = ', ln_pisces 224 WRITE(numout,*) ' Simulating MEDUSA model ln_medusa = ', ln_medusa 216 225 WRITE(numout,*) ' Simulating MY_TRC model ln_my_trc = ', ln_my_trc 217 226 WRITE(numout,*) ' Simulating water mass age ln_age = ', ln_age … … 245 254 !! ** Method : - read passive tracer namelist 246 255 !! - read namelist of each defined SMS model 247 !! ( (PISCES, CFC, MY_TRC )256 !! ( (PISCES, MEDUSA, CFC, MY_TRC ) 248 257 !!--------------------------------------------------------------------- 249 258 #if defined key_trdmxl_trc || defined key_trdtrc -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcrst.F90
r14075 r15665 32 32 PUBLIC trc_rst_wri ! called by ??? 33 33 PUBLIC trc_rst_cal 34 PUBLIC trc_rst_stat 34 35 35 36 !!---------------------------------------------------------------------- 36 37 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 37 !! $Id $38 !! $Id: trcrst.F90 11536 2019-09-11 13:54:18Z smasson $ 38 39 !! Software governed by the CeCILL license (see ./LICENSE) 39 40 !!---------------------------------------------------------------------- … … 129 130 !! ** purpose : write passive tracer fields in restart files 130 131 !!---------------------------------------------------------------------- 132 USE trcrst_medusa, ONLY: trc_rst_conserv 133 !! 131 134 INTEGER, INTENT( in ) :: kt ! ocean time-step index 132 135 !! … … 149 152 IF( kt == nitrst ) THEN 150 153 CALL trc_rst_stat ! statistics 154 CALL trc_rst_conserv ! Conservation Checks 151 155 CALL iom_close( numrtw ) ! close the restart file (only at last time step) 152 156 #if ! defined key_trdmxl_trc … … 353 357 !!---------------------------------------------------------------------- 354 358 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 355 !! $Id $359 !! $Id: trcrst.F90 11536 2019-09-11 13:54:18Z smasson $ 356 360 !! Software governed by the CeCILL license (see ./LICENSE) 357 361 !!====================================================================== -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcsms.F90
r14075 r15665 16 16 USE trc ! 17 17 USE trcsms_pisces ! PISCES biogeo-model 18 USE trcsms_medusa ! MEDUSA biogeo-model 18 19 USE trcsms_cfc ! CFC 11 &/or 12 19 20 USE trcsms_c14 ! C14 … … 29 30 !!---------------------------------------------------------------------- 30 31 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 31 !! $Id $32 !! $Id: trcsms.F90 10068 2018-08-28 14:09:04Z nicolasmartin $ 32 33 !! Software governed by the CeCILL license (see ./LICENSE) 33 34 !!---------------------------------------------------------------------- … … 50 51 ! 51 52 IF( ln_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES 53 IF( ln_medusa ) CALL trc_sms_medusa ( kt ) ! main program of MEDUSA 52 54 IF( ll_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 53 55 IF( ln_c14 ) CALL trc_sms_c14 ( kt ) ! surface fluxes of C14 -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/TOP/trcwri.F90
r14075 r15665 18 18 USE dianam ! Output file name 19 19 USE trcwri_pisces 20 USE trcwri_medusa 20 21 USE trcwri_cfc 21 22 USE trcwri_c14 … … 66 67 ! --------------------------------------- 67 68 IF( ln_pisces ) CALL trc_wri_pisces ! PISCES 69 IF( ln_medusa ) CALL trc_wri_medusa ! MEDUSA 68 70 IF( ll_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 69 71 IF( ln_c14 ) CALL trc_wri_c14 ! surface fluxes of C14 … … 88 90 !!---------------------------------------------------------------------- 89 91 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 90 !! $Id $92 !! $Id: trcwri.F90 12280 2019-12-21 10:42:44Z cetlod $ 91 93 !! Software governed by the CeCILL license (see ./LICENSE) 92 94 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.
