43 |
ELSE |
ELSE |
44 |
WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev) |
WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev) |
45 |
ENDIF |
ENDIF |
46 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn2cpl, 1,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,atmSLPr , 1,myIter,myThid) |
47 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux , 2,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux , 2,myIter,myThid) |
48 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX , 3,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 3,myIter,myThid) |
49 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY , 4,myIter,myThid) |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLatent , 3,myIter,myThid) |
50 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,FWFlux , 5,myIter,myThid) |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qSensible , 3,myIter,myThid) |
51 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,uVelGround, 6,myIter,myThid) |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLongWave , 3,myIter,myThid) |
52 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vVelGround, 7,myIter,myThid) |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,uVelGround, 3,myIter,myThid) |
53 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLatent , 8,myIter,myThid) |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vVelGround, 3,myIter,myThid) |
54 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qSensible , 9,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX , 4,myIter,myThid) |
55 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLongwave ,10,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY , 5,myIter,myThid) |
56 |
c CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortwave,11,myIter,myThid) |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,FWFlux , 6,myIter,myThid) |
57 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx, 7,myIter,myThid) |
58 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass, 8,myIter,myThid) |
59 |
|
|
60 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD2cpl, 9,myIter,myThid) |
61 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn2cpl,10,myIter,myThid) |
62 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn2cpl,11,myIter,myThid) |
63 |
|
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn2cpl,12,myIter,myThid) |
64 |
|
|
65 |
RETURN |
RETURN |
66 |
END |
END |