Changeset 5739


Ignore:
Timestamp:
2015-09-14T14:31:59+02:00 (5 years ago)
Author:
jpalmier
Message:

JPALM —14-09-2015 — create a test config without dust and ccd

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r5726 r5739  
    296296      !! * arguments 
    297297      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
     298         !! JPALM (14/09/15) 
     299      LOGICAL, PUBLIC ::                  & 
     300      ln_ccd = .FALSE. 
    298301 
    299302      !!--------------------------------------------------------------------- 
     
    302305      !! ------------- 
    303306      !! 
    304       IF(lwp) WRITE(numout,*) ' ' 
    305       IF(lwp) WRITE(numout,*) ' **** Routine trc_ini_medusa_ccd' 
    306       CALL iom_open ( 'ccd_ocal_nemo.nc', numccd ) 
    307       IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: ccd_ocal_nemo.nc opened' 
     307      !!!! JPALM -- 14-09-2015 --  
     308      !!!!       -- to test on ORCA2 with Christian, no file available, so initiate to 0  
     309      IF ln_ccd THEN 
     310         IF(lwp) WRITE(numout,*) ' ' 
     311         IF(lwp) WRITE(numout,*) ' **** Routine trc_ini_medusa_ccd' 
     312         CALL iom_open ( 'ccd_ocal_nemo.nc', numccd ) 
     313         IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: ccd_ocal_nemo.nc opened' 
    308314 
    309315      !! Read the data 
    310316      !! ------------- 
    311317      !! 
    312       CALL iom_get ( numccd, jpdom_data, 'OCAL_CCD', ocal_ccd ) 
    313       IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: data read' 
     318         CALL iom_get ( numccd, jpdom_data, 'OCAL_CCD', ocal_ccd ) 
     319         IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: data read' 
    314320 
    315321      !! Close the file 
    316322      !! -------------- 
    317323      !! 
    318       CALL iom_close ( numccd ) 
    319       IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: ccd_ocal_nemo.nc closed' 
    320       IF(lwp) CALL flush(numout) 
    321        
     324         CALL iom_close ( numccd ) 
     325         IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: ccd_ocal_nemo.nc closed' 
     326         IF(lwp) CALL flush(numout) 
     327      ELSE 
     328         IF(lwp) WRITE(numout,*) ' ' 
     329         IF(lwp) WRITE(numout,*) ' **** Routine trc_ini_medusa_ccd' 
     330         IF(lwp) WRITE(numout,*) ' **** trc_ini_medusa_ccd: do not read ccd_ocal_nemo.nc' 
     331         IF(lwp) WRITE(numout,*) ' **** ln_ccd = FALSE and ocal_ccd = 0.0 ---' 
     332         ocal_ccd(:,:) = 0.0   
     333      ENDIF 
     334  
    322335   END SUBROUTINE trc_ini_medusa_ccd 
    323336 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

    r5726 r5739  
    4040   !! AXY (10/02/09) 
    4141   LOGICAL, PUBLIC ::                  & 
    42       bdustfer = .TRUE. 
     42      bdustfer = .FALSE. 
    4343   REAL(wp), PUBLIC ::                 & 
    4444      sedfeinput = 1.e-9_wp  ,         & 
     
    120120 
    121121      !! AXY (10/02/09) 
    122       IF( (jnt == 1) .and. (bdustfer) )  CALL trc_sed_medusa_sbc( kt ) 
     122      trc_sed_medusa_sbcIF( (jnt == 1) .and. (bdustfer) )  CALL trc_sed_medusa_sbc( kt ) 
    123123      !! 
    124124      zirondep(:,:,:) = 0.e0     !! Initialisation of deposition variables 
Note: See TracChangeset for help on using the changeset viewer.