Changeset 5352 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2015-06-04T17:01:01+02:00 (9 years ago)

Author:

smasson

Message:

dev_r5218_CNRS17_coupling: update for fraqsr

File:

• branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (2 diffs)

branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -135 +135 @@
                      CALL iom_rstput( kt, nitrst, numrow, 'rhd'    , rhd       )
 #endif
-                  IF( lk_lim3 .OR. ( nn_components == jp_iam_opa ) ) THEN
-                     CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev'  , fraqsr_1lev     ) !clem modif
-                  ENDIF
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
@@ -268 +265 @@
       ENDIF
       !
-!EM Idem
-!EM      IF( lk_lim3 .OR. ( nn_components == jp_iam_opa ) ) THEN
-         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev' , fraqsr_1lev )
-!EM      ENDIF
-      !
    END SUBROUTINE rst_read