Changeset 2627 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN

Timestamp:

2011-02-27T18:52:49+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; OPA_SRC compilation without mpp

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -47 +47 @@
    PUBLIC dyn_spg_ts        ! routine called by step.F90
    PUBLIC ts_rst            ! routine called by istate.F90
-   PUBLIC dyn_spg_ts_alloc  ! routine called by nemogcm.F90
+   PUBLIC dyn_spg_ts_alloc  ! routine called by dynspg.F90
 
 
@@ -144 +144 @@
          IF(lwp) WRITE(numout,*) ' Number of sub cycle in 1 time-step (2 rdt) : icycle = ',  2*nn_baro
          !
-         !                                      ! allocate dyn_spg_ts arrays
-         IF( dyn_spg_ts_alloc() /= 0 )   CALL ctl_stop('STOP', 'dyn_spg_ts_alloc: failed to allocate arrays')
-         !
          CALL ts_rst( nit000, 'READ' )   ! read or initialize the following fields: un_b, vn_b  
          !
@@ -667 +664 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE dyn_spg_ts( kt )       ! Empty routine
+   INTEGER FUNCTION dyn_spg_ts_alloc()    ! Dummy function
+      dyn_spg_ts_alloc = 0
+   END FUNCTION dyn_spg_ts_alloc
+   SUBROUTINE dyn_spg_ts( kt )            ! Empty routine
       INTEGER, INTENT(in) :: kt
       WRITE(*,*) 'dyn_spg_ts: You should not have seen this print! error?', kt
    END SUBROUTINE dyn_spg_ts
-   SUBROUTINE ts_rst( kt, cdrw )     ! Empty routine
+   SUBROUTINE ts_rst( kt, cdrw )          ! Empty routine
       INTEGER         , INTENT(in) ::   kt         ! ocean time-step
       CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag