/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.123 by gforget, Tue Mar 26 22:07:25 2013 UTC revision 1.124 by gforget, Thu Mar 28 17:22:12 2013 UTC
# Line 79  C     == Global variables === Line 79  C     == Global variables ===
79  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
80  #  include "SEAICE_SIZE.h"  #  include "SEAICE_SIZE.h"
81  #  include "SEAICE.h"  #  include "SEAICE.h"
82    #  include "SEAICE_PARAMS.h"
83  # endif  # endif
84  # ifdef ALLOW_THSICE  # ifdef ALLOW_THSICE
85  #  include "THSICE_VARS.h"  #  include "THSICE_VARS.h"
# Line 224  C       and modify forcing terms includi Line 225  C       and modify forcing terms includi
225  #endif /* ndef OLD_THSICE_CALL_SEQUENCE */  #endif /* ndef OLD_THSICE_CALL_SEQUENCE */
226    
227  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
228    # ifdef ALLOW_AUTODIFF_TAMC
229    CADJ STORE area   = comlev1, key=ikey_dynamics, kind=isbyte
230    CADJ STORE fu,fv  = comlev1, key=ikey_dynamics, kind=isbyte
231    CADJ STORE qnet   = comlev1, key=ikey_dynamics, kind=isbyte
232    CADJ STORE qsw    = comlev1, key=ikey_dynamics, kind=isbyte
233    CADJ STORE theta  = comlev1, key=ikey_dynamics, kind=isbyte
234    CADJ STORE salt   = comlev1, key=ikey_dynamics, kind=isbyte
235    #if (defined ALLOW_EXF) && (defined ALLOW_ATM_TEMP)
236    CADJ STORE evap   = comlev1, key=ikey_dynamics, kind=isbyte
237    #endif
238          IF ( .NOT.useSEAICE ) THEN
239          IF ( SEAICEadjMODE .EQ. -1 ) THEN
240            CALL SEAICE_FAKE( myTime, myIter, myThid )
241          ENDIF
242          ENDIF
243    CADJ STORE area   = comlev1, key=ikey_dynamics, kind=isbyte
244    CADJ STORE fu,fv  = comlev1, key=ikey_dynamics, kind=isbyte
245    CADJ STORE qnet   = comlev1, key=ikey_dynamics, kind=isbyte
246    CADJ STORE qsw    = comlev1, key=ikey_dynamics, kind=isbyte
247    CADJ STORE theta  = comlev1, key=ikey_dynamics, kind=isbyte
248    CADJ STORE salt   = comlev1, key=ikey_dynamics, kind=isbyte
249    #if (defined ALLOW_EXF) && (defined ALLOW_ATM_TEMP)
250    CADJ STORE evap   = comlev1, key=ikey_dynamics, kind=isbyte
251    #endif
252    # endif /* ALLOW_AUTODIFF_TAMC */
253    #endif /* ALLOW_SEAICE */
254    
255    #ifdef ALLOW_SEAICE
256        IF ( useSEAICE ) THEN        IF ( useSEAICE ) THEN
257  # ifdef ALLOW_AUTODIFF_TAMC  # ifdef ALLOW_AUTODIFF_TAMC
258  cph-adj-test(  cph-adj-test(
Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124
  ViewVC Help
Powered by ViewVC 1.1.22