/[MITgcm]/MITgcm/pkg/kpp/kpp_routines.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_routines.F

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

revision 1.5 by heimbach, Mon Jan 29 20:09:23 2001 UTC revision 1.6 by adcroft, Fri Feb 2 21:36:29 2001 UTC
# Line 1297  c--------------------------------------- Line 1297  c---------------------------------------
1297  #include "EEPARAMS.h"  #include "EEPARAMS.h"
1298  #include "PARAMS.h"  #include "PARAMS.h"
1299  #include "KPP_PARAMS.h"  #include "KPP_PARAMS.h"
1300    #include "DYNVARS.h"
1301    
1302  c-------------- Routine arguments -----------------------------------------  c-------------- Routine arguments -----------------------------------------
1303        INTEGER bi, bj, myThid        INTEGER bi, bj, myThid
# Line 1329  c calculate density, alpha, beta in surf Line 1330  c calculate density, alpha, beta in surf
1330    
1331        call FIND_RHO(        call FIND_RHO(
1332       I     bi, bj, ibot, itop, jbot, jtop, 1, 1, eosType,       I     bi, bj, ibot, itop, jbot, jtop, 1, 1, eosType,
1333         I     theta, salt,
1334       O     WORK1,       O     WORK1,
1335       I     myThid )       I     myThid )
1336    
# Line 1356  CHPF$  INDEPENDENT, NEW (RHOK,RHOKM1,RHO Line 1358  CHPF$  INDEPENDENT, NEW (RHOK,RHOKM1,RHO
1358    
1359           call FIND_RHO(           call FIND_RHO(
1360       I        bi, bj, ibot, itop, jbot, jtop, K, K, eosType,       I        bi, bj, ibot, itop, jbot, jtop, K, K, eosType,
1361         I        theta, salt,
1362       O        RHOK,       O        RHOK,
1363       I        myThid )       I        myThid )
1364    
1365           call FIND_RHO(           call FIND_RHO(
1366       I        bi, bj, ibot, itop, jbot, jtop, K-1, K, eosType,       I        bi, bj, ibot, itop, jbot, jtop, K-1, K, eosType,
1367         I        theta, salt,
1368       O        RHOKM1,       O        RHOKM1,
1369       I        myThid )       I        myThid )
1370    
1371           call FIND_RHO(           call FIND_RHO(
1372       I        bi, bj, ibot, itop, jbot, jtop, 1, K, eosType,       I        bi, bj, ibot, itop, jbot, jtop, 1, K, eosType,
1373         I        theta, salt,
1374       O        RHO1K,       O        RHO1K,
1375       I        myThid )       I        myThid )
1376    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22