5 |
|
|
6 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
7 |
CBOP 0 |
CBOP 0 |
8 |
|
C !ROUTINE: MNC_CW_RX_W_S |
9 |
|
|
10 |
|
C !INTERFACE: |
11 |
|
SUBROUTINE MNC_CW_RX_W_S( |
12 |
|
I stype, |
13 |
|
I fbname, bi,bj, |
14 |
|
I vtype, |
15 |
|
I var, |
16 |
|
I myThid ) |
17 |
|
|
18 |
|
C !DESCRIPTION: |
19 |
|
C A scalar version of MNC_CW_RX_W() for compilers that cannot |
20 |
|
C gracefully handle the conversion on their own. |
21 |
|
|
22 |
|
C !USES: |
23 |
|
implicit none |
24 |
|
|
25 |
|
C !INPUT PARAMETERS: |
26 |
|
integer myThid, bi,bj, indu |
27 |
|
character*(*) stype, fbname, vtype |
28 |
|
__V var |
29 |
|
__V var_arr(1) |
30 |
|
CEOP |
31 |
|
|
32 |
|
var_arr(1) = var |
33 |
|
CALL MNC_CW_RX_W(stype,fbname,bi,bj,vtype, var_arr, myThid) |
34 |
|
|
35 |
|
RETURN |
36 |
|
END |
37 |
|
|
38 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
39 |
|
CBOP 0 |
40 |
C !ROUTINE: MNC_CW_RX_W |
C !ROUTINE: MNC_CW_RX_W |
41 |
|
|
42 |
C !INTERFACE: |
C !INTERFACE: |
372 |
|
|
373 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
374 |
CBOP 0 |
CBOP 0 |
375 |
|
C !ROUTINE: MNC_CW_RX_R_S |
376 |
|
|
377 |
|
C !INTERFACE: |
378 |
|
SUBROUTINE MNC_CW_RX_R_S( |
379 |
|
I stype, |
380 |
|
I fbname, bi,bj, |
381 |
|
I vtype, |
382 |
|
I var, |
383 |
|
I myThid ) |
384 |
|
|
385 |
|
C !DESCRIPTION: |
386 |
|
C A scalar version of MNC_CW_RX_R() for compilers that cannot |
387 |
|
C gracefully handle the conversion on their own. |
388 |
|
|
389 |
|
C !USES: |
390 |
|
implicit none |
391 |
|
|
392 |
|
C !INPUT PARAMETERS: |
393 |
|
integer myThid, bi,bj, indu |
394 |
|
character*(*) stype, fbname, vtype |
395 |
|
__V var |
396 |
|
__V var_arr(1) |
397 |
|
CEOP |
398 |
|
var_arr(1) = var |
399 |
|
|
400 |
|
CALL MNC_CW_RX_R(stype,fbname,bi,bj,vtype, var_arr, myThid) |
401 |
|
|
402 |
|
RETURN |
403 |
|
END |
404 |
|
|
405 |
|
|
406 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
407 |
|
CBOP 0 |
408 |
C !ROUTINE: MNC_CW_RX_R |
C !ROUTINE: MNC_CW_RX_R |
409 |
|
|
410 |
C !INTERFACE: |
C !INTERFACE: |