Modules

r original routine svn3623

FC integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Ouverture des fichier et definition des axes!!!!!!!! histbeg, histvert !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

variable for coupling period

SUBROUTINE cv3a_uncompress(nloc, len, ncum, nd, ntra, idcum, is_convect, compress, & !jyg: get rid of ntra

SUBROUTINE cva_driver(len, nd, ndp1, ntra, nloc, k_upper, & !jyg: get rid of ntra

Purpose: Create physical initial state using atmospheric fields from a database of atmospheric to initialize the model.

subroutine fonte_neige_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag) use infotrac_phy, ONLY: niso

*** DEACT_CLOUD_GFL Deactivate prognostic cloud variables

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition des getin -> bcast !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Ouverture des fichier et definition des axes!!!!!!!! histbeg, histvert !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

pre-cmip7 routines are below and are becoming obsolete

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

REAL, SAVE :: stark, wdens_ref, coefgw, alpk

@brief Module MO_SIMPLE_PLUMES: provides anthropogenic aerosol optical properties as a function of lat, lon height, time, and wavelength

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition des Broadcast --> 4D !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition des Broadcast --> 4D !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition des Broadcast --> 4D !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

** MODD_CSTS - declaration of Physic constants

** MOD_DALBEDO_RS14 - declaration of ISBA parameters

1D case

Global saved variables

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

GG SUBROUTINE pbl_surface_init(fder_rst, snow_rst, qsurf_rst, ftsoil_rst) jyg

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Ouverture des fichier et definition des variable de sortie !!!!!!!! histbeg, histvert et histdef !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$OMP THREADPRIVATE(rlat,rlon)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! AS: SUBROUTINE readscaleparams_spl pas appellee

$SUBROUTINE RANDOM_NUMBER_RESTARTFILE( CDFNAME, CDACTION,YD_STREAM ) $!-------------------------------------------------------------------------------- $! $! read (cdaction='r') or write (cdaction='w') restart file $! for random number generator $! $!-------------------------------------------------------------------------------- $CHARACTER (LEN=), INTENT(IN) :: CDFNAME $CHARACTER (LEN=1 ), INTENT(IN) :: CDACTION $TYPE(RANDOMNUMBERSTREAM), INTENT(INOUT) :: YD_STREAM $
$INTEGER(KIND=JPIM) :: IUNIT, IRET, IBYTES_IN_JPIM $ $REAL(KIND=JPRB) :: ZHOOK_HANDLE $IF (LHOOK) CALL DR_HOOK('RANDOM_NUMBERS_MIX:RANDOM_NUMBER_RESTARTFILE',0,ZHOOK_HANDLE) $IBYTES_IN_JPIM= CEILING(REAL(BIT_SIZE(YD_STREAM%IUSED))/8.0_JPRB - TINY(1.0_JPRB)) $ $IF (IBYTES_IN_JPIM /= 4) THEN $ CALL ABOR1('random_number_restartfile: number of bytes for JPIM is not 4 ')
$ENDIF $ $CALL PBOPEN(IUNIT, CDFNAME, CDACTION, IRET) $IF (IRET /= 0) THEN $ CALL ABOR1('random_number_restartfile: PBOPEN FAILED opening '//CDFNAME)
$ENDIF $ $ $IF (CDACTION=='r' .OR. CDACTION=='R') THEN $ CALL PBREAD(IUNIT, YD_STREAM%IX, IBYTES_IN_JPIMJPQ, IRET) $ IF (IRET < 0) THEN $ CALL ABOR1('random_number_restartfile: PBREAD could not read ix from '//CDFNAME)
$ ENDIF $ CALL PBREAD(IUNIT, YD_STREAM%IUSED, IBYTES_IN_JPIM , IRET) $ IF (IRET < 0) THEN $ CALL ABOR1('random_number_restartfile: PBREAD could not read iused from '//CDFNAME)
$ ENDIF $ $! l_initialized = .TRUE. $ YD_STREAM%INITTEST = INITVALUE $ YD_STREAM%ZRM=1.0_JPRB/REAL(JPM,JPRB) $ELSEIF(CDACTION=='w' .OR. CDACTION=='W') THEN $ CALL PBWRITE(IUNIT, YD_STREAM%IX, IBYTES_IN_JPIM*JPQ, IRET) $ IF (IRET < 0) THEN $ CALL ABOR1('random_number_restartfile: PBWRITE could not write ix on '//CDFNAME)
$ ENDIF $ CALL PBWRITE(IUNIT, YD_STREAM%IUSED, IBYTES_IN_JPIM , IRET) $ IF (IRET < 0) THEN $ CALL ABOR1('random_number_restartfile: PBWRITE could not write iused on '//CDFNAME)
$ ENDIF $ $ELSE $ CALL ABOR1 ('random_number_restartfile: cdaction = '//CDACTION//' is undefined.') $ENDIF $ $CALL PBCLOSE(IUNIT, IRET) $IF (IRET /= 0) THEN $ CALL ABOR1('random_number_restartfile: PBCLOSE FAILED closing '//CDFNAME)
$ENDIF $ $IF (LHOOK) CALL DR_HOOK('RANDOM_NUMBERS_MIX:RANDOM_NUMBER_RESTARTFILE',1,ZHOOK_HANDLE) $END SUBROUTINE RANDOM_NUMBER_RESTARTFILE

r original routine svn3623

r original routine

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

r original routine svn3623

Variables describing distributed memory parallelization

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

** YOE_UVRAD - COEFFICIENTS FOR ULTRAVIOLET RADIATION PROCESSOR

** YOEAERATM - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE

** YOEAERATM - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE

** YOEAEROP - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS

** YOEAERSNK - CONTROL OPTIONS FOR AEROSOLS' SINKS

** YOEAERSRC - CONTROL OPTIONS FOR AEROSOLS' SOURCE

** YOECLD - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS

COMMON YOECUMF - PARAMETERS FOR CUMULUS MASSFLUX SCHEME

** YOEDBUG - CONTROL OPTIONS FOR DEBUGGING HELP

** YOELW - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER

** YOEPHLI CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS

** YOEPHY - SWITCHES RELATED TO DIABATIC PROCESSES

** YOEPHY - SWITCHES RELATED TO DIABATIC PROCESSES

** YOERAD - CONTROL OPTIONS FOR RADIATION CONFIGURATION

** YOERAD - CONTROL OPTIONS FOR RADIATION CONFIGURATION

** YOERAD - CONTROL OPTIONS FOR RADIATION CONFIGURATION

** YOERDI - COEFFICIENTS WITHIN RADIATION INTERFACE

** YOERDI - COEFFICIENTS WITHIN RADIATION INTERFACE

** YOERDU - CONTROL, PARAMETERS AND SECURITY IN RADIATION

** YOERRTA1 - RRTM COEFFICIENTS FOR INTERVAL 1 BAND 1: 10-250 cm-1 (low - H2O; high - H2O) ABozzo may 2013 update to last version of rrtmg band 1: 10-350 cm-1

** YOERRTA1 - RRTM COEFFICIENTS FOR INTERVAL 1 BAND 1: 10-250 cm-1 (low - H2O; high - H2O)

** YOERRTA14 - RRTM COEFFICIENTS FOR INTERVAL 10 BAND 10: 1390-1480 cm-1 (low - H2O; high - H2O) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA14 - RRTM COEFFICIENTS FOR INTERVAL 10 BAND 10: 1390-1480 cm-1 (low - H2O; high - H2O)

** YOERRTA11 - RRTM COEFFICIENTS FOR INTERVAL 11 BAND 11: 1480-1800 cm-1 (low - H2O; high - H2O)

** YOERRTA11 - RRTM COEFFICIENTS FOR INTERVAL 11 BAND 11: 1480-1800 cm-1 (low - H2O; high - H2O)

** YOERRTA12 - RRTM COEFFICIENTS FOR INTERVAL 12 BAND 12: 1800-2080 cm-1 (low - H2O,CO2; high - nothing) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA12 - RRTM COEFFICIENTS FOR INTERVAL 12 BAND 12: 1800-2080 cm-1 (low - H2O,CO2; high - nothing)

** YOERRTA13 - RRTM COEFFICIENTS FOR INTERVAL 13 BAND 13: 2080-2250 cm-1 (low - H2O,N2O; high - nothing) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA13 - RRTM COEFFICIENTS FOR INTERVAL 13 BAND 13: 2080-2250 cm-1 (low - H2O,N2O; high - nothing)

** YOERRTA14 - RRTM COEFFICIENTS FOR INTERVAL 14 BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA14 - RRTM COEFFICIENTS FOR INTERVAL 14 BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2)

** YOERRTA15 - RRTM COEFFICIENTS FOR INTERVAL 15 BAND 15: 2380-2600 cm-1 (low - N2O,CO2; high - nothing) ABozzo 2001306 updated to rrtmg v4.85 band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) (high - nothing)

** YOERRTA15 - RRTM COEFFICIENTS FOR INTERVAL 15 BAND 15: 2380-2600 cm-1 (low - N2O,CO2; high - nothing)

** YOERRTA16 - RRTM COEFFICIENTS FOR INTERVAL 16 BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing) ABozzo 201306 updated to rrtmg v4.85 band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)

** YOERRTA16 - RRTM COEFFICIENTS FOR INTERVAL 16 BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing)

** YOERRTA2 - RRTM COEFFICIENTS FOR INTERVAL 2 BAND 2: 250-500 cm-1 (low - H2O; high - H2O) ABozzo May 2013 updated to the last rrtmg band 2: 350-500 cm-1 (low key - h2o; high key - h2o) -----------------------------------------------------------------

** YOERRTA2 - RRTM COEFFICIENTS FOR INTERVAL 2 BAND 2: 250-500 cm-1 (low - H2O; high - H2O)

** YOERRTA3 - RRTM COEFFICIENTS FOR INTERVAL 3 BAND 3: 500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)

** YOERRTA3 - RRTM COEFFICIENTS FOR INTERVAL 3 BAND 3: 500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)

** YOERRTA4 - RRTM COEFFICIENTS FOR INTERVAL 5 BAND 4: 630-700 cm-1 (low - H2O,CO2; high - O3,CO2) 201306 ABozzo updated to rrtmg v4.85

** YOERRTA4 - RRTM COEFFICIENTS FOR INTERVAL 5 BAND 4: 630-700 cm-1 (low - H2O,CO2; high - O3,CO2)

** YOERRTA5 - RRTM COEFFICIENTS FOR INTERVAL 5 BAND 5: 700-820 cm-1 (low - H2O,CO2; high - O3,CO2) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA5 - RRTM COEFFICIENTS FOR INTERVAL 5 BAND 5: 700-820 cm-1 (low - H2O,CO2; high - O3,CO2)

** YOERRTA6 - RRTM COEFFICIENTS FOR INTERVAL 6 BAND 6: 820-980 cm-1 (low - H2O; high - nothing) ABozzo 201306 updaten to rrtmg v4.85

** YOERRTA6 - RRTM COEFFICIENTS FOR INTERVAL 6 BAND 6: 820-980 cm-1 (low - H2O; high - nothing)

** YOERRTA7 - RRTM COEFFICIENTS FOR INTERVAL 7 BAND 7: 980-1080 cm-1 (low - H2O,O3; high - O3) ABozzo updated to rrtmg v4.85

** YOERRTA7 - RRTM COEFFICIENTS FOR INTERVAL 7 BAND 7: 980-1080 cm-1 (low - H2O,O3; high - O3)

** YOERRTA8 - RRTM COEFFICIENTS FOR INTERVAL 8 BAND 8: 1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3) ABozzo 201306 updated to rrtmg v4.85

** YOERRTA8 - RRTM COEFFICIENTS FOR INTERVAL 8 BAND 8: 1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)

** YOERRTA9 - RRTM COEFFICIENTS FOR INTERVAL 9 BAND 9: 1180-1390 cm-1 (low - H2O,CH4; high - CH4)

** YOERRTA9 - RRTM COEFFICIENTS FOR INTERVAL 9 BAND 9: 1180-1390 cm-1 (low - H2O,CH4; high - CH4)

** YOERRTO1 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 1 BAND 1: 10-250 cm-1 (low - H2O; high - H2O) ABozzo may 2013 update to rrtmg v4.85 band 1: 10-350 cm-1

** YOERRTO1 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 1 BAND 1: 10-250 cm-1 (low - H2O; high - H2O)

** YOERRTO14 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 10 BAND 10: 1390-1480 cm-1 (low - H2O; high - H2O) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO14 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 10 BAND 10: 1390-1480 cm-1 (low - H2O; high - H2O)

** YOERRTO11 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 11 BAND 11: 1480-1800 cm-1 (low - H2O; high - H2O) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO11 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 11 BAND 11: 1480-1800 cm-1 (low - H2O; high - H2O)

** YOERRTO12 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 12 BAND 12: 1800-2080 cm-1 (low - H2O,CO2; high - nothing) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO12 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 12 BAND 12: 1800-2080 cm-1 (low - H2O,CO2; high - nothing)

** YOERRTO13 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 13 BAND 13: 2080-2250 cm-1 (low - H2O,N2O; high - nothing) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO13 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 13 BAND 13: 2080-2250 cm-1 (low - H2O,N2O; high - nothing)

** YOERRTO14 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 14 BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO14 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 14 BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2)

** YOERRTO15 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 15 BAND 15: 2380-2600 cm-1 (low - N2O,CO2; high - nothing) ABozzo 2001306 updated to rrtmg v4.85 band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) (high - nothing)

** YOERRTO15 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 15 BAND 15: 2380-2600 cm-1 (low - N2O,CO2; high - nothing)

** YOERRTO16 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 16 BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing) ABozzo 201306 updated to rrtmg v4.85 band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)

** YOERRTO16 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 16 BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing)

** YOERRTO2 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2 BAND 2: 250-500 cm-1 (low - H2O; high - H2O) ABozzo May 2013 updated to rrtmg v4.85 band 2: 350-500 cm-1 (low key - h2o; high key - h2o) -----------------------------------------------------------------

** YOERRTO2 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2 BAND 2: 250-500 cm-1 (low - H2O; high - H2O)

** YOERRTO3 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 3 BAND 3: 500-630 cm-1 (low - H2O,CO2; high - H2O,CO2) ABozzo 200130517 updated to rrtmg_lw_v4.85: band 3: 500-630 cm-1 (low key - h2o,co2; low minor - n2o) (high key - h2o,co2; high minor - n2o)

** YOERRTO3 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 3 BAND 3: 500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)

** YOERRTO4 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 4 BAND 4: 630-700 cm-1 (low - H2O,CO2; high - O3,CO2) 201306 ABozzo updated to rrtmg v4.85

** YOERRTO4 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 4 BAND 4: 630-700 cm-1 (low - H2O,CO2; high - O3,CO2)

** YOERRTO5 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 5 BAND 5: 700-820 cm-1 (low - H2O,CO2; high - O3,CO2) ABozzo 201306 updated to rrtmg v4.85

** YOERRTO5 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 5 BAND 5: 700-820 cm-1 (low - H2O,CO2; high - O3,CO2)

** YOERRTO6 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 6 BAND 6: 820-980 cm-1 (low - H2O; high - nothing) ABozzo 201306 update to rrtmg v4.85

** YOERRTO6 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 6 BAND 6: 820-980 cm-1 (low - H2O; high - nothing)

** YOERRTO7 - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 7 BAND 7: 980-1080 cm-1 (low - H2O,O3; high - O3) ABozzo updated to rrtmg v4.85