Changeset 4205 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2013-11-14T18:02:06+01:00 (10 years ago)

Author:

clem

Message:

 

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90 (modified) (3 diffs)

branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -89 +89 @@
       CALL lim_itd_ini                 ! ice thickness distribution initialization
       !
-      CALL lim_sbc_init                ! ice surface boundary condition   
-
-
       !                                ! Initial sea-ice state
       IF( .NOT.ln_rstart ) THEN              ! start from rest
@@ -106 +103 @@
       ENDIF
       !
+      CALL lim_sbc_init                ! ice surface boundary condition   
+      !
       fr_i(:,:) = at_i(:,:)           ! initialisation of sea-ice fraction
+      tn_ice(:,:,:) = t_su(:,:,:)
       !
       nstart = numit  + nn_fsbc      
@@ -248 +248 @@
       END DO
       !
-      tn_ice(:,:,:) = t_su(:,:,:)
       !
    END SUBROUTINE lim_itd_ini