Changeset 2777 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2011-06-07T11:55:02+02:00 (13 years ago)

Author:

smasson

Message:

LIM3 compiling and (partly?) running in v3_3_1, see ticket#817

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -177 +177 @@
       CALL fld_read( kt, nn_fsbc, sf )                ! input fields provided at the current time-step
       !
-#if defined key_lim3      
-      tatm_ice(:,:) = sf(jp_tair)%fnow(:,:,1)     !RB ugly patch
-#endif
-      !                                                        ! surface ocean fluxes computed with CLIO bulk formulea
       IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce_clio( sf, sst_m )
       !
@@ -467 +463 @@
       zpatm = 101000.                        ! atmospheric pressure  (assumed constant  here)
 
+#if defined key_lim3      
+      tatm_ice(:,:) = sf(jp_tair)%fnow(:,:,1)   ! LIM3: make Tair available in sea-ice. WARNING allocated after call to ice_init
+#endif
+      !                                                        ! surface ocean fluxes computed with CLIO bulk formulea
       !------------------------------------!
       !   momentum fluxes  (utau, vtau )   !