Changeset 4859 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2014-11-14T21:43:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r4857 r4859 133 133 INTEGER , ALLOCATABLE, SAVE, DIMENSION( :) :: nrcvinfo ! OASIS info argument 134 134 135 #if ! defined key_lim2 && ! defined key_lim3136 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice,fr1_i0,fr2_i0 ! jpi, jpj137 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tn_ice, alb_ice, qns_ice, dqns_ice ! (jpi,jpj,jpl)138 #endif139 140 #if defined key_cice141 INTEGER, PARAMETER :: jpl = ncat142 #elif ! defined key_lim2 && ! defined key_lim3143 INTEGER, PARAMETER :: jpl = 1144 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_ice145 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: qsr_ice146 #endif147 148 #if ! defined key_lim3 && ! defined key_cice149 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i150 #endif151 152 #if ! defined key_lim3153 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ht_i, ht_s154 #endif155 156 #if ! defined key_cice157 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: topmelt, botmelt158 #endif159 160 135 !! Substitution 161 136 # include "vectopt_loop_substitute.h90" … … 172 147 !! *** FUNCTION sbc_cpl_alloc *** 173 148 !!---------------------------------------------------------------------- 174 INTEGER :: ierr( 4),jn149 INTEGER :: ierr(2),jn 175 150 !!---------------------------------------------------------------------- 176 151 ierr(:) = 0 177 152 ! 178 153 ALLOCATE( albedo_oce_mix(jpi,jpj), nrcvinfo(jprcv), STAT=ierr(1) ) 179 ! 180 #if ! defined key_lim2 && ! defined key_lim3 181 ! quick patch to be able to run the coupled model without sea-ice... 182 ALLOCATE( u_ice(jpi,jpj) , fr1_i0(jpi,jpj) , tn_ice (jpi,jpj,1) , & 183 v_ice(jpi,jpj) , fr2_i0(jpi,jpj) , alb_ice(jpi,jpj,1), & 184 emp_ice(jpi,jpj) , qns_ice(jpi,jpj,1) , dqns_ice(jpi,jpj,1) , STAT=ierr(2) ) 154 155 #if ! defined key_lim3 && ! defined key_lim2 && ! defined key_cice 156 ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) ) 185 157 #endif 186 187 #if ! defined key_lim3 && ! defined key_cice 188 ALLOCATE( a_i(jpi,jpj,jpl) , STAT=ierr(3) ) 189 #endif 190 191 #if defined key_cice || defined key_lim2 192 ALLOCATE( ht_i(jpi,jpj,jpl) , ht_s(jpi,jpj,jpl) , STAT=ierr(4) ) 193 #endif 158 ! 194 159 sbc_cpl_alloc = MAXVAL( ierr ) 195 160 IF( lk_mpp ) CALL mpp_sum ( sbc_cpl_alloc ) … … 904 869 CALL wrk_alloc( jpi,jpj, ztx, zty ) 905 870 906 !AC Pour eviter un stress nul sur la glace dans le cas mixed oce-ice 907 IF( srcv(jpr_itx1)%laction .AND. TRIM( sn_rcv_tau%cldes ) == 'oce and ice') THEN ; itx = jpr_itx1 871 IF( srcv(jpr_itx1)%laction ) THEN ; itx = jpr_itx1 908 872 ELSE ; itx = jpr_otx1 909 873 ENDIF … … 912 876 IF( nrcvinfo(itx) == OASIS_Rcv ) THEN 913 877 914 ! ! ======================= ! 915 !AC Pour eviter un stress nul sur la glace dans le cas mixes oce-ice 916 IF( srcv(jpr_itx1)%laction .AND. TRIM( sn_rcv_tau%cldes ) == 'oce and ice') THEN ! ice stress received ! 917 ! ! ======================= ! 878 ! ! ======================= ! 879 IF( srcv(jpr_itx1)%laction ) THEN ! ice stress received ! 880 ! ! ======================= ! 918 881 ! 919 882 IF( TRIM( sn_rcv_tau%clvref ) == 'cartesian' ) THEN ! 2 components on the sphere … … 1286 1249 ENDIF 1287 1250 1288 SELECT CASE( TRIM( sn_rcv_dqnsdt%cldes ) ) 1251 ! ! ========================= ! 1252 SELECT CASE( TRIM( sn_rcv_dqnsdt%cldes ) ) ! d(qns)/dt ! 1253 ! ! ========================= ! 1289 1254 CASE ('coupled') 1290 1255 IF ( TRIM(sn_rcv_dqnsdt%clcat) == 'yes' ) THEN … … 1298 1263 END SELECT 1299 1264 1300 SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) ) 1265 ! ! ========================= ! 1266 SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) ) ! topmelt and botmelt ! 1267 ! ! ========================= ! 1301 1268 CASE ('coupled') 1302 1269 topmelt(:,:,:)=frcv(jpr_topm)%z3(:,:,:) … … 1343 1310 1344 1311 zfr_l(:,:) = 1.- fr_i(:,:) 1345 1346 1312 ! ! ------------------------- ! 1347 1313 ! ! Surface temperature ! in Kelvin … … 1372 1338 IF( ssnd(jps_tmix)%laction ) CALL cpl_snd( jps_tmix, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 1373 1339 ENDIF 1374 !1375 1340 ! ! ------------------------- ! 1376 1341 ! ! Albedo !
Note: See TracChangeset
for help on using the changeset viewer.