Changeset 3192 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

Timestamp:

2011-12-05T14:55:12+01:00 (12 years ago)

Author:

cetlod

Message:

Perform the initialisation phase of PISCES at nit000 rather than nittrc000

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

@@ -172 +172 @@
          wn_temp    (:,:,:)      = wn    (:,:,:)
          tsn_temp   (:,:,:,:)    = tsn   (:,:,:,:)
-         rhop_temp  (:,:,:)      = rhop  (:,:,:)
+         rhop_temp  (:,:,:)      = rhop  (:,:,:)    
          avt_temp   (:,:,:)      = avt   (:,:,:)
 # if defined key_zdfddm
-         avs_temp(:,:,:)         = avs   (:,:,:)
+         avs_temp   (:,:,:)      = avs   (:,:,:)
 # endif
 #if defined key_ldfslp
@@ -474 +474 @@
          CALL lbc_lnk( avt   (:,:,:)       , 'W', 1. ) 
 # if defined key_zdfddm
-         CALL lbc_lnk( avs  (:,:,:)       , 'W', 1. ) 
+          CALL lbc_lnk( avs  (:,:,:)       , 'W', 1. ) 
 # endif
 #if defined key_ldfslp
@@ -1035 +1035 @@
       ALLOCATE( un_temp(jpi,jpj,jpk)        ,  vn_temp(jpi,jpj,jpk)  ,   &
          &      wn_temp(jpi,jpj,jpk)        ,  avt_temp(jpi,jpj,jpk) ,   &
+         &      rhop_temp(jpi,jpj,jpk)      ,  rhop_tm(jpi,jpj,jpk) ,   &
          &      sshn_temp(jpi,jpj)          ,  sshb_temp(jpi,jpj) ,      &
          &      ssha_temp(jpi,jpj)          ,  sshu_a_temp(jpi,jpj),     &
@@ -1059 +1060 @@
          &      avs_tm(jpi,jpj,jpk)         ,  avs_temp(jpi,jpj,jpk) ,   &
 # endif
-         &      rhop_tm(jpi,jpj,jpk)        ,  rhop_temp(jpi,jpj,jpk) ,  &
 #if defined key_traldf_c3d
          &      ahtt_tm(jpi,jpj,jpk)        ,  ahtt_temp(jpi,jpj,jpk),   &