Juan 12/06/2017:read_exsegn.f90, M.Leriche 06/2017 for spawn and prep_real avoid...
authorJuan Escobar <escj@aero.obs-mip.fr>
Mon, 12 Jun 2017 08:20:23 +0000 (10:20 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Mon, 12 Jun 2017 08:20:23 +0000 (10:20 +0200)
src/MNH/read_exsegn.f90

index 881d74b..e8802c3 100644 (file)
@@ -281,6 +281,8 @@ END MODULE MODI_READ_EXSEG_n
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
 !!      M.Leriche 18/12/2015 : bug chimie glace dans prep_real_case
 !!      Modification   02/2016   (M.Leriche) treat gas and aq. chemicals separately
+!!      M.Leriche      06/2017 for spawn and prep_real avoid abort if wet dep for 
+!!                             aerosol and no cloud scheme defined
 !!------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -1455,7 +1457,8 @@ IF (LDUST) THEN
   IF (LDEPOS_DST(KMI)) THEN
 
   IF((CCLOUD /= 'ICE3').AND.(CCLOUD /= 'ICE4').AND.(CCLOUD /= 'KESS')&
-  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2'))  THEN
+  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2').AND.                &
+       (CPROGRAM/='SPAWN').AND.(CPROGRAM/='REAL'))  THEN
     WRITE(UNIT=ILUOUT,FMT=9003) KMI
     WRITE(UNIT=ILUOUT,FMT='("ERROR: WET DEPOSITION OF DUST IS ONLY CODED FOR THE",/,&
          & "MICROPHYSICAL SCHEME as ICE3, ICE4, KESS, KHKO and C2R2")') 
@@ -1540,7 +1543,8 @@ IF (LSALT) THEN
   IF (LDEPOS_SLT(KMI)) THEN
 
   IF((CCLOUD /= 'ICE3').AND.(CCLOUD /= 'ICE4').AND.(CCLOUD /= 'KESS')&
-  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2'))  THEN
+  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2').AND.                &
+       (CPROGRAM/='SPAWN').AND.(CPROGRAM/='REAL'))  THEN
     WRITE(UNIT=ILUOUT,FMT=9003) KMI
     WRITE(UNIT=ILUOUT,FMT='("ERROR: WET DEPOSITION OF SEA SALT AEROSOLS IS ONLY CODED FOR THE",/,&
          & "MICROPHYSICAL SCHEME as ICE3, ICE4, KESS, KHKO and C2R2")') 
@@ -1623,7 +1627,8 @@ IF (LORILAM) THEN
   IF (LDEPOS_AER(KMI)) THEN
 
   IF((CCLOUD /= 'ICE3').AND.(CCLOUD /= 'ICE4').AND.(CCLOUD /= 'KESS')&
-  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2'))  THEN
+  .AND.(CCLOUD /= 'KHKO').AND.(CCLOUD /= 'C2R2').AND.                &
+       (CPROGRAM/='SPAWN').AND.(CPROGRAM/='REAL'))  THEN
     WRITE(UNIT=ILUOUT,FMT=9003) KMI
     WRITE(UNIT=ILUOUT,FMT='("ERROR: WET DEPOSITION OF ORILAM AEROSOLS IS ONLY CODED FOR THE",/,&
          & "MICROPHYSICAL SCHEME as ICE3, ICE4, KESS, KHKO and C2R2")')