Changeset 5835 for branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

Timestamp:

2015-10-26T15:41:05+01:00 (9 years ago)

Author:

mathiot

Message:

ice sheet coupling branche: cosmetic changes

File:

• branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90 (modified) (5 diffs)

branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

@@ -8 +8 @@
 
    !!----------------------------------------------------------------------
+   !!   iscpl_stp          : step management
    !!   iscpl_rst_interpol : restart interpolation in case of coupling with ice sheet
    !!----------------------------------------------------------------------
@@ -68 +69 @@
       CALL iom_get( numror, jpdom_autoglo, 'vmask'  , zvmask_b   ) ! need to correct barotropic velocity
       CALL iom_get( numror, jpdom_autoglo, 'smask'  , zsmask_b   ) ! need to correct barotropic velocity
-      CALL iom_get( numror, jpdom_autoglo, 'fse3t_n', ze3t_b(:,:,:) ) ! need to compute temperature correction
-      CALL iom_get( numror, jpdom_autoglo, 'fse3u_n', ze3u_b(:,:,:) ) ! need to compute volume      correction  ????
-      CALL iom_get( numror, jpdom_autoglo, 'fse3v_n', ze3v_b(:,:,:) ) ! need to compute volume      correction  ????
-      CALL iom_get( numror, jpdom_autoglo, 'fsdepw_n', zdepw_b(:,:,:) ) ! need to compute volume      correction  ????
+      CALL iom_get( numror, jpdom_autoglo, 'fse3t_n' , ze3t_b(:,:,:) )  ! need to compute temperature correction
+      CALL iom_get( numror, jpdom_autoglo, 'fse3u_n' , ze3u_b(:,:,:) )  ! need to correct barotropic velocity
+      CALL iom_get( numror, jpdom_autoglo, 'fse3v_n' , ze3v_b(:,:,:) )  ! need to correct barotropic velocity
+      CALL iom_get( numror, jpdom_autoglo, 'fsdepw_n', zdepw_b(:,:,:) ) ! need to interpol vertical profile (vvl)
 
       !! read namelist
@@ -105 +106 @@
       !! next step is an euler time step
       neuler = 0
+
       !! set _b and _n variables equal
       tsb (:,:,:,:) = tsn (:,:,:,:)
@@ -110 +112 @@
       vb  (:,:,:  ) = vn  (:,:,:  )
       sshb(:,:    ) = sshn(:,:)
+
       !! set _b and _n vertical scale factor equal
       fse3t_b (:,:,:) = fse3t_n (:,:,:)
@@ -158 +161 @@
       !! allocate variables
       CALL wrk_alloc(jpi,jpj,jpk,2, zts0                                   )
-      CALL wrk_alloc(jpi,jpj,jpk,   ztmask0, ztmask1 , ztrp, ztmp3d         ) 
+      CALL wrk_alloc(jpi,jpj,jpk,   ztmask0, ztmask1 , ztrp, ztmp3d        ) 
       CALL wrk_alloc(jpi,jpj,jpk,   zwmaskn, zwmaskb                       ) 
       CALL wrk_alloc(jpi,jpj,       zsmask0, zsmask1                       )